muellestefan
/
BAK-Kulturgueter
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
BAK-Kulturgueter/BAK.V1.R

333 lines
22 KiB
R
Raw Normal View History

Skript für Tabellen Alle Tabellen können mit diesem Skript reproduziert werden (Reihenfolge ist bereits für jede Tabelle angepasst). Wichtig: Die Packages müssen zuerst installiert werden, bevor sie geladen werden können. Dies muss allerdings nur einmal gemacht werden, danach sind sie in der Bibliothek gespeichert. Zudem muss der Pfad und der Name des Dokuments für den Import angepasst werden.
2022-01-24 09:50:10 +01:00
## pre-setting and insert dataset
rm(list=ls())
#install.packages(c("plyr", "dplyr", "stats", "reshape2", "tidyr", "kableExtra", "janitor", "viridis", "scales"))
library(plyr)
library(dplyr)
library(stats)
library(reshape2)
library(tidyr)
library(kableExtra)
library(janitor)
library(viridis)
library(scales)
setwd("~/BAK_Projekt")
df_bak <- read.csv("~/BAK_Projekt/Liste_BAK2.csv", sep = ";")
############# create tables #############
#binary dataset with selected columns
df_Hauptbereich <- select(df_bak, c("Name.des.Akteurs",
"Haupttypen.rechtlicher.Institutionalisierung..Finanzierung..Auftrag..Organisationsform.",
"T<EFBFBD>tigkeitsebene..r<>umlich.",
"materielles...mobiles.Kulturerbe",
"materielles...immobiles.Kulturerbe",
Update BAK.V1.R Refactoring
2022-02-13 15:21:52 +01:00
"immaterielles.Kulturerbe", "Kanton")) %>%
Skript für Tabellen Alle Tabellen können mit diesem Skript reproduziert werden (Reihenfolge ist bereits für jede Tabelle angepasst). Wichtig: Die Packages müssen zuerst installiert werden, bevor sie geladen werden können. Dies muss allerdings nur einmal gemacht werden, danach sind sie in der Bibliothek gespeichert. Zudem muss der Pfad und der Name des Dokuments für den Import angepasst werden.
2022-01-24 09:50:10 +01:00
dplyr::rename("Institution"="Name.des.Akteurs",
"Akteurshaupttypen" = "Haupttypen.rechtlicher.Institutionalisierung..Finanzierung..Auftrag..Organisationsform.",
"Taetigkeitsebene" = "T<EFBFBD>tigkeitsebene..r<>umlich." )
df_Hauptbereich_bin <- df_Hauptbereich %>% mutate(
MM.Bin = if_else(
condition = materielles...mobiles.Kulturerbe == "",
true = "0",
false = "1"
),
MI.Bin = if_else(
condition = materielles...immobiles.Kulturerbe == "",
true = "0",
false = "1"
),
I.Bin = if_else(
condition = immaterielles.Kulturerbe == "",
true ="0",
false = "1"
)
) %>%
mutate_at(c("MM.Bin", "MI.Bin", "I.Bin"), as.numeric)
##Abbildung 7 Anzahl Akteure (nach Haupttypen) in drei Hauptbereichen (Haupttypen) Kulturerbe
df_Hauptbereich_bin <- df_Hauptbereich_bin[!(df_Hauptbereich_bin$Akteurshaupttypen ==""),]
Update BAK.V1.R Refactoring
2022-02-13 15:21:52 +01:00
table7 <- aggregate(cbind(MM.Bin, MI.Bin, I.Bin) ~ Akteurshaupttypen+Kanton,
Skript für Tabellen Alle Tabellen können mit diesem Skript reproduziert werden (Reihenfolge ist bereits für jede Tabelle angepasst). Wichtig: Die Packages müssen zuerst installiert werden, bevor sie geladen werden können. Dies muss allerdings nur einmal gemacht werden, danach sind sie in der Bibliothek gespeichert. Zudem muss der Pfad und der Name des Dokuments für den Import angepasst werden.
2022-01-24 09:50:10 +01:00
data=df_Hauptbereich_bin,
FUN=sum) %>%
dplyr::rename("Materielles + mobiles Kulturerbe"="MM.Bin",
"Materielles + immobiles Kulturerbe" = "MI.Bin",
"Immaterielles Kulturerbe"="I.Bin") %>%
arrange(match(Akteurshaupttypen, c("privat", "staatlich/<2F>ffentlich", "hybrid")))
Abb7=table7 %>% kable(caption = "Abbildung 7: Anzahl Akteure (nach Haupttypen) in den drei Hauptbereichen (Haupttypen) Kulturerbe",
col.names = c("Akteurshaupttypen", "Materielles + mobiles Kulturerbe",
"Materielles + immobiles Kulturerbe", "Immaterielles Kulturerbe")) %>% kable_styling()
##Abbildung 8: Anzahl Akteure nach T<>tigkeitsebene in den drei Hauptbereichen (Haupttypen Kulturerbe)
#delete all empty rows in Akteurshaupttypen and Taetigkeitsebene
df_Hauptbereich_bin <- df_Hauptbereich_bin[!(df_Hauptbereich_bin$Taetigkeitsebene ==""),]
table8 <- aggregate(cbind(MM.Bin, MI.Bin, I.Bin) ~ Akteurshaupttypen + Taetigkeitsebene,
data=df_Hauptbereich_bin,
FUN=sum)%>%
dplyr::rename("T<EFBFBD>tigkeitsebene" ="Taetigkeitsebene", "Materielles + mobiles Kulturerbe"="MM.Bin",
"Materielles + immobiles Kulturerbe" = "MI.Bin",
"Immaterielles Kulturerbe"="I.Bin") %>%
arrange(match(Akteurshaupttypen, c("privat", "staatlich/<2F>ffentlich", "hybrid")))
Abb8=kable(table8[-1], caption = "Abbildung 8: Anzahl Akteure nach T<>tigkeitsebene in den drei Hauptbereichen (Haupttypen) Kulturebene",
col.names = c("T<EFBFBD>tigkeitsebene", "Materielles + mobiles Kulturerbe",
"Materielles + immobiles Kulturerbe", "Immaterielles Kulturerbe")) %>%
kable_styling("striped", full_width = F) %>%
group_rows(index = c("hybrid" = 5, "privat" = 5, "staatlich/<2F>ffentlich" = 5),
label_row_css = "background-color: #FDDD9FFF; color: #000004FF;") #background-color: colour of row, color: color of text
##Abbildung 9: Anzahl Akteure in den sechs Handlungsfeldern nach Haupttypen Kulturebene
#create and shape dataset
df_Akteure <- select(df_bak, c("Name.des.Akteurs", "rechtliche.Institutionalisierung.des.Auftrags", "Hauptfinanzierungstr<EFBFBD>ger",
"Haupttypen.rechtlicher.Institutionalisierung..Finanzierung..Auftrag..Organisationsform.",
"T<EFBFBD>tigkeitsebene..r<>umlich.",
"materielles...mobiles.Kulturerbe",
"materielles...immobiles.Kulturerbe",
"immaterielles.Kulturerbe",
"X.1..Erwerben", "X.2..Inventarisieren", "X.3..Erforschen",
"X.4..Sch<63>tzen...Erhalten", "X.5..Zug<75>nglich.machen", "X.6..Reaktualisieren")) %>%
dplyr::rename("Institution"="Name.des.Akteurs",
"Akteurshaupttypen" = "Haupttypen.rechtlicher.Institutionalisierung..Finanzierung..Auftrag..Organisationsform.",
"erwerben"="X.1..Erwerben", "inventarisieren"="X.2..Inventarisieren",
"erforschen" = "X.3..Erforschen", "erhalten"="X.4..Sch<63>tzen...Erhalten",
"zugang"="X.5..Zug<75>nglich.machen", "reaktualisieren" = "X.6..Reaktualisieren")
#get binary variables of "Handlungsfelder" regarding the presence of data in each cell
df_Akteure_bin <- df_Akteure %>% mutate(
Sammeln = if_else(
condition = erwerben == "",
true = "0",
false = "1"
),
Inventarisieren = if_else(
condition = inventarisieren == "",
true = "0",
false = "1"
),
Erforschen = if_else(
condition = erforschen == "",
true ="0",
false = "1"
),
Sch<EFBFBD>tzen_Erhalten = if_else(
condition = erhalten == "",
true = "0",
false = "1"
),
Zug<EFBFBD>nglichmachen = if_else(
condition = zugang == "",
true = "0",
false = "1"
),
Reaktualisieren = if_else(
condition = reaktualisieren == "",
true = "0",
false = "1"
)
) %>%
mutate_at(c("Sammeln","Inventarisieren", "Erforschen", "Sch<EFBFBD>tzen_Erhalten", "Zug<EFBFBD>nglichmachen", "Reaktualisieren"), as.numeric)
#change format from wide to long in order to have "Handlungsfelder" in one column and hence being able to aggregate
df_Akteure_bin_wide <- gather(df_Akteure_bin, Handlungsfelder, Presence, Sammeln:Reaktualisieren, factor_key = TRUE)
df_Akteure_bin_wide2 <- df_Akteure_bin_wide[!(df_Akteure_bin_wide$Presence =="0"),]
#calculate each "Haupttyp" seperately as they are listed in columns
#maybe try again to crate a for-loop
df_mm <- dplyr::filter(df_Akteure_bin_wide2, !(materielles...mobiles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder) %>% dplyr::summarise(materielles_mobiles_Kulturerbe=n())
df_mi <- dplyr::filter(df_Akteure_bin_wide2, !(materielles...immobiles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder) %>% dplyr::summarise(materielles_immobiles_Kulturerbe=n())
df_i <- dplyr::filter(df_Akteure_bin_wide2, !(immaterielles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder) %>% dplyr::summarise(immaterielles_Kulturerbe=n())
table9 <- full_join(df_mm, df_mi, by="Handlungsfelder") %>%
merge(df_i) %>%
dplyr::rename("Materielles + mobiles Kulturerbe"="materielles_mobiles_Kulturerbe",
"Materielles + immobiles Kulturerbe" = "materielles_immobiles_Kulturerbe",
"Immaterielles Kulturerbe"="immaterielles_Kulturerbe") %>%
arrange(match(Handlungsfelder, c("Sammeln", "Inventarisieren", "Erforschen", "Sch<EFBFBD>tzen_Erhalten", "Zug<EFBFBD>nglichmachen", "Reaktualisieren")))
table9$Handlungsfelder <- revalue(table9$Handlungsfelder, c("Sch<EFBFBD>tzen_Erhalten"="Sch<EFBFBD>tzen & Erhalten"))
Abb9=table9 %>% kable(caption = "Abbildung 9: Anzahl Akteure in den sechs Handlungsfeldern nach Haupttypen Kulturerbe",
col.names = c("Handlungsfelder", "Materielles + mobiles Kulturerbe",
"Materielles + immobiles Kulturerbe", "Immaterielles Kulturerbe")) %>% kable_styling()
##Abbildung 10: Anzahl Akteure (nach Haupttypen) in den sechs Handlungsfeldern nach Haupttypen Kulturerbe
df_mm_ht <- dplyr::filter(df_Akteure_bin_wide2, !(materielles...mobiles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder, Akteurshaupttypen) %>% dplyr::summarise(materielles_mobiles_Kulturerbe=n())
df_mi_ht <- dplyr::filter(df_Akteure_bin_wide2, !(materielles...immobiles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder, Akteurshaupttypen) %>% dplyr::summarise(materielles_immobiles_Kulturerbe=n())
df_i_ht <- dplyr::filter(df_Akteure_bin_wide2, !(immaterielles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder, Akteurshaupttypen) %>% dplyr::summarise(immaterielles_Kulturerbe=n())
table10_df <-full_join(df_mm_ht, df_mi_ht, by=c("Handlungsfelder", "Akteurshaupttypen")) %>%
merge(df_i_ht)
table10_df$Sortierhilfe <- with(table10_df, paste0(Handlungsfelder, Akteurshaupttypen))
table10 <- table10_df %>%
dplyr::arrange(match(Sortierhilfe, c("Sammelnprivat", "Sammelnstaatlich/<2F>ffentlich", "Sammelnhybrid",
"Inventarisierenprivat", "Inventarisierenstaatlich/<2F>ffentlich", "Inventarisierenhybrid",
"Erforschenprivat", "Erforschenstaatlich/<2F>ffentlich", "Erforschenhybrid",
"Sch<EFBFBD>tzen_Erhaltenprivat", "Sch<EFBFBD>tzen_Erhaltenstaatlich/<2F>ffentlich", "Sch<EFBFBD>tzen_Erhaltenhybrid",
"Zug<EFBFBD>nglichmachenprivat", "Zug<EFBFBD>nglichmachenstaatlich/<2F>ffentlich", "Zug<EFBFBD>nglichmachenhybrid",
"Reaktualisierenprivat", "Reaktualisierenstaatlich/<2F>ffentlich", "Reaktualisierenhybrid"))) %>%
select(c(1:5))
#show_col(viridis_pal(option="magma")(30))
Abb10=table10[-1] %>% kable(caption = "Abbildung 10: Anzahl Akteure (nach Haupttypen) in den sechs Handlungsfeldern nach Haupttypen Kulturerbe",
col.names = c("Handlungsfelder", "Materielles + mobiles Kulturerbe",
"Materielles + immobiles Kulturerbe", "Immaterielles Kulturerbe")) %>%
kable_styling("striped", full_width = F) %>%
group_rows(index = c("Erforschen" = 3, "Erwerben und Sammeln" = 3, "Inventarisieren" = 3,
"Reaktualisieren" = 3, "Sch<EFBFBD>tzen und Erhalten" = 3, "Zug<EFBFBD>nglichmachen" = 3),
label_row_css = "background-color: #FDDD9FFF; color: #000004FF;") #background-color: colour of row, color: color of text
##Abbildung 11: Anzahl Akteure (nach Haupttypen) nach rechtlichen Organisationsformen
######Option 1: berechnet nach Akteurshaupttypen ####
df_org <- df_bak[c(8, 9, 10)] %>% dplyr::rename( "Akteurshaupttypen" = "Haupttypen.rechtlicher.Institutionalisierung..Finanzierung..Auftrag..Organisationsform.")
df_org$rechtliche.Organisationsform <- revalue(df_org$rechtliche.Organisationsform, c("privat: Stiftung"="Stiftung", "staatlich/<2F>ffentlich: Beh<65>rde / Anstalt" = "Beh<EFBFBD>rde/Anstalt", "privat: Verein/Verband" = "Verein",
"hybrid: Verein/Verband" = "Verein", "privat: Einzelperson(en)"= "Einzelperson", "hybrid: Stiftung" = "Stiftung",
"privat: Kapitalgesellschaft"="Kapitalgesellschaft", "staatlich/<2F>ffentlich: Stiftung"="Stiftung", "privat: Einzelunternehmen"="Einzelunternehmen",
"privat: Genossenschaft" = "Genossenschaft", "hybrid: Kapitalgesellschaft" = "Kapitalgesellschaft"))
df_Insti11_count <- df_org %>% dplyr::group_by(Akteurshaupttypen,rechtliche.Organisationsform) %>%
dplyr::summarise(count=n())
table11 <- spread(df_Insti11_count, key=Akteurshaupttypen, value = count)
table11 <- table11[!(table11$rechtliche.Organisationsform ==""),]
table11[is.na(table11)] <- 0
table11$Total <- rowSums(table11[, c(3:5)])
table11 <- table11[c(1,4,5,3,6)] %>%
arrange(match(rechtliche.Organisationsform, c("Einzelperson", "Einzelunternehmen", "Stiftung", "Genossenschaft", "Verein",
"Kapitalgesellschaft", "Beh<EFBFBD>rde/Anstalt")))%>%
dplyr::rename("rechtliche Organisationsform"="rechtliche.Organisationsform",
"<EFBFBD>ffentlich"="staatlich/<2F>ffentlich")
Abb11.1=table11 %>% kable(caption = "Abbildung 11: Anzahl Akteure (nach Haupttypen) nach rechtlichen Organisationsformen") %>% kable_styling()
######
##Option 2: berechnet nach rechtlicher Organisationsform
df_Insti11_count2 <- df_bak[c(8, 9)] %>% dplyr::group_by(rechtliche.Organisationsform) %>%
dplyr::summarise(count=n())
df_Insti11_count2$poh.spread <- substr(df_Insti11_count2$rechtliche.Organisationsform, start = 1, stop =6)
df_Insti11_count2$rechtliche.Organisationsform <- revalue(df_Insti11_count2$rechtliche.Organisationsform, c("privat: Stiftung"="Stiftung", "staatlich/<2F>ffentlich: Beh<65>rde / Anstalt" = "Beh<EFBFBD>rde/Anstalt", "privat: Verein/Verband" = "Verein",
"hybrid: Verein/Verband" = "Verein", "privat: Einzelperson(en)"= "Einzelperson", "hybrid: Stiftung" = "Stiftung",
"privat: Kapitalgesellschaft"="Kapitalgesellschaft", "staatlich/<2F>ffentlich: Stiftung"="Stiftung", "privat: Einzelunternehmen"="Einzelunternehmen",
"privat: Genossenschaft" = "Genossenschaft", "hybrid: Kapitalgesellschaft" = "Kapitalgesellschaft"))
table11.2.poh <- spread(df_Insti11_count2, key=poh.spread, value = count)
table11.2.df <- table11.2.poh[!(table11.2.poh$rechtliche.Organisationsform ==""), ]
table11.2.df[is.na(table11.2.df)] <- 0
table11.2.df$Total <- rowSums(table11.2.df[, 3:5])
table11.2 <- table11.2.df[c(1,4,5,3,6)] %>%
arrange(match(rechtliche.Organisationsform, c("Einzelperson", "Einzelunternehmen", "Stiftung", "Genossenschaft", "Verein", "Kapitalgesellschaft", "Beh<EFBFBD>rde/Anstalt")))
Abb11.2=table11.2 %>% kable(caption = "Abbildung 11: Anzahl Akteure (nach Haupttypen) nach rechtlichen Organisationsformen",
col.names = c("rechtliche Organisationsform","privat", "<EFBFBD>ffentlich", "hybrid", "Total")) %>% kable_styling()
##Abbildung 12: Anzahl Akteure (nach rechtlicher Organisationsform) nach Institutionalisierung des Auftrags
df_Insti <- df_bak[c(7, 8, 9, 10)] %>% dplyr::rename("rechtl.Institutionalisiserung"="rechtliche.Institutionalisierung.des.Auftrags",
"rechtl.Organisationsform" = "rechtliche.Organisationsform")
Update BAK.V1.R Refactoring
2022-02-13 15:21:52 +01:00
df_Insti$rechtl.Organisationsform <- plyr::revalue(df_Insti$rechtl.Organisationsform, c("privat: Stiftung"="Stiftung: privat", "staatlich/<2F>ffentlich: Beh<65>rde / Anstalt" = "Beh<EFBFBD>rde/Anstalt",
Skript für Tabellen Alle Tabellen können mit diesem Skript reproduziert werden (Reihenfolge ist bereits für jede Tabelle angepasst). Wichtig: Die Packages müssen zuerst installiert werden, bevor sie geladen werden können. Dies muss allerdings nur einmal gemacht werden, danach sind sie in der Bibliothek gespeichert. Zudem muss der Pfad und der Name des Dokuments für den Import angepasst werden.
2022-01-24 09:50:10 +01:00
"privat: Verein/Verband" = "Verein: privat","hybrid: Kapitalgesellschaft" = "Kapitalgesellschaft: hybrid",
"hybrid: Verein/Verband" = "Verein: hybrid", "privat: Einzelperson(en)"= "Einzelperson (privat)",
"hybrid: Stiftung" = "Stiftung: hybrid","privat: Genossenschaft" = "Genossenschaft: privat",
"privat: Kapitalgesellschaft"="Kapitalgesellschaft: privat", "staatlich/<2F>ffentlich: Stiftung"="Stiftung: staatlich/<2F>ffentlich",
"privat: Einzelunternehmen"="Einzelunternehmen (privat)"))
df_Insti <- df_Insti[!(df_Insti$rechtl.Organisationsform ==""),]
df_Insti12_count <- df_Insti %>% dplyr::group_by(rechtl.Institutionalisiserung,rechtl.Organisationsform) %>%
dplyr::summarise(count=n())
table12.prep <- spread(df_Insti12_count, key=rechtl.Institutionalisiserung, value = count)
table12.prep[is.na(table12.prep)] <- 0
Update BAK.V1.R Refactoring
2022-02-13 15:21:52 +01:00
table12 <- table12.prep %>% janitor::adorn_totals("row") %>%
Skript für Tabellen Alle Tabellen können mit diesem Skript reproduziert werden (Reihenfolge ist bereits für jede Tabelle angepasst). Wichtig: Die Packages müssen zuerst installiert werden, bevor sie geladen werden können. Dies muss allerdings nur einmal gemacht werden, danach sind sie in der Bibliothek gespeichert. Zudem muss der Pfad und der Name des Dokuments für den Import angepasst werden.
2022-01-24 09:50:10 +01:00
arrange(match(rechtl.Organisationsform, c("Einzelperson (privat)", "Einzelunternehmen (privat)",
"Stiftung: privat", "Stiftung: staatlich/<2F>ffentlich", "Stiftung: hybrid",
"Genossenschaft: privat", "Genossenschaft: staatlich/<2F>ffentlich", "Genossenschaft: hybrid",
"Verein: privat", "Verein: staatlich/<2F>ffentlich", "Verein: hybrid",
"Kapitalgesellschaft: privat", "Kapitalgesellschaft: staatlich/<2F>ffentlich", "Kapitalgesellschaft: hybrid",
"Beh<EFBFBD>rde/Anstalt", "Total")))
Abb12=table12 %>% kable(caption = "Abbildung 12: Anzahl Akteure (nach rechtlicher Organisationsform) nach Institutionalisierung des Auftrags",
col.names = c("rechtliche Organisationsform", "mit eigenem (privatem) Auftrag", "mit <20>ffentlichem/gesetzlichem Auftrag")) %>% kable_styling()
## Abbildung 13: Anzahl Akteure (nach rechtlicher Institutionalisierung) nach Hauptfinanzierungstr<74>gern
df_finanztr<EFBFBD>ger <- df_Insti %>% dplyr::group_by(Hauptfinanzierungstr<EFBFBD>ger, rechtl.Organisationsform) %>%
dplyr::summarise(count=n())
table13.df <- spread(df_finanztr<EFBFBD>ger, key=Hauptfinanzierungstr<EFBFBD>ger, value = count)
table13 <- table13.df %>% adorn_totals("row") %>%
arrange(match(rechtl.Organisationsform, c("Einzelperson (privat)", "Einzelunternehmen (privat)",
"Stiftung: privat", "Stiftung: staatlich/<2F>ffentlich", "Stiftung: hybrid",
"Genossenschaft: privat", "Genossenschaft: staatlich/<2F>ffentlich", "Genossenschaft: hybrid",
"Verein: privat", "Verein: staatlich/<2F>ffentlich", "Verein: hybrid",
"Kapitalgesellschaft: privat", "Kapitalgesellschaft: staatlich/<2F>ffentlich", "Kapitalgesellschaft: hybrid",
"Beh<EFBFBD>rde/Anstalt", "Total")))
Abb13=table13%>% kable(caption = "Abbildung 13: Anzahl Akteure (nach rechtlicher Institutionalisierung) nach Hauptfinanzierungstr<74>gern",
col.names = c("rechtliche Organisationsform nach Haupttypen Akteure", "Hauptfinanzierungstr<EFBFBD>ger: privat",
"Hauptfinanzierungstr<EFBFBD>ger: <20>ffentlich")) %>% kable_styling()
##Abbildung 14: Anzahl Akteure (nach Institutuionalisierung Auftrag) in sechs Handlungsfeldern nach Haupttypen Kulturerbe
df14_mm <- dplyr::filter(df_Akteure_bin_wide2, !(materielles...mobiles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder, rechtliche.Institutionalisierung.des.Auftrags) %>% dplyr::summarise(materielles_mobiles_Kulturerbe=n())
df14_mi <- dplyr::filter(df_Akteure_bin_wide2, !(materielles...immobiles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder, rechtliche.Institutionalisierung.des.Auftrags) %>% dplyr::summarise(materielles_immobiles_Kulturerbe=n())
df14_i <- dplyr::filter(df_Akteure_bin_wide2, !(immaterielles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder, rechtliche.Institutionalisierung.des.Auftrags) %>% dplyr::summarise(immaterielles_Kulturerbe=n())
table14 <-full_join(df14_mm, df14_mi, by=c("Handlungsfelder", "rechtliche.Institutionalisierung.des.Auftrags")) %>%
merge(df14_i) %>%
arrange(match(Handlungsfelder, c("Sammeln", "Inventarisieren", "Erforschen", "Sch<EFBFBD>tzen_Erhalten", "Zug<EFBFBD>nglichmachen", "Reaktualisieren")))
Abb14=table14[-1] %>% kable(caption = "Abbildung 14: Anzahl Akteure (nach Institutuionalisierung Auftrag) in sechs Handlungsfeldern nach Haupttypen Kulturerbe",
col.names = c("Handlungsfelder / Institutionalisierung Auftrag", "Materielles + mobiles Kulturerbe",
"Materielles + immobiles Kulturerbe", "Immaterielles Kulturerbe")) %>%
kable_styling("striped", full_width = F) %>%
group_rows(index = c("Erforschen" = 2, "Erwerben und Sammeln" = 2, "Inventarisieren" = 2,
"Reaktualisieren (Valorisieren)" = 2, "Sch<EFBFBD>tzen und Erhalten" = 2, "Zug<EFBFBD>nglichmachen" = 2),
label_row_css = "background-color: #FDDD9FFF; color: #000004FF;")
##Abbildung 15: Anzahl Akteure (nach Hauptfinanzierungstr<74>ger) in sechs Handlungsfelder nach Haupttypen Kulturerbe
df15_mm <- dplyr::filter(df_Akteure_bin_wide2, !(materielles...mobiles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder, Hauptfinanzierungstr<EFBFBD>ger) %>% dplyr::summarise(materielles_mobiles_Kulturerbe=n())
df15_mi <- dplyr::filter(df_Akteure_bin_wide2, !(materielles...immobiles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder, Hauptfinanzierungstr<EFBFBD>ger) %>% dplyr::summarise(materielles_immobiles_Kulturerbe=n())
df15_i <- dplyr::filter(df_Akteure_bin_wide2, !(immaterielles.Kulturerbe %in% "")) %>%
group_by(Handlungsfelder, Hauptfinanzierungstr<EFBFBD>ger) %>% dplyr::summarise(immaterielles_Kulturerbe=n())
table15 <-full_join(df15_mm, df15_mi, by=c("Handlungsfelder", "Hauptfinanzierungstr<EFBFBD>ger")) %>%
merge(df15_i) %>%
arrange(match(Handlungsfelder, c("Sammeln", "Inventarisieren", "Erforschen", "Sch<EFBFBD>tzen_Erhalten", "Zug<EFBFBD>nglichmachen", "Reaktualisieren")))
Abb15=table15[-1] %>% kable(caption = "Abbildung 15: Anzahl Akteure (nach Hauptfinanzierungstr<74>ger) in sechs Handlungsfelder nach Haupttypen Kulturerbe",
col.names = c("Handlungsfelder / Hauptfinanzierung", "Materielles + mobiles Kulturerbe",
"Materielles + immobiles Kulturerbe", "Immaterielles Kulturerbe")) %>%
kable_styling("striped", full_width = F) %>%
group_rows(index = c("Erforschen" = 2, "Erwerben und Sammeln" = 2, "Inventarisieren" = 2,
"Reaktualisieren (Valorisieren)" = 2, "Sch<EFBFBD>tzen und Erhalten" = 2, "Zug<EFBFBD>nglichmachen" = 2),
label_row_css = "background-color: #FDDD9FFF; color: #000004FF;")