## 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) library(stringr) setwd("~/BAK_Projekt") df_bak <- read.csv("~/BAK_Projekt/Liste_BAK4.csv", sep = ";") ############# create tables ############# #binary dataset with selected columns df_Hauptbereich <- select(df_bak, c("Name.des.Akteurs", "Haupttypen.rechtlicher.Institutionalisierung..Finanzierung..Auftrag..Organisationsform.", "rechtliche.Organisationsform", "Tätigkeitsebene..räumlich.", "materielles...mobiles.Kulturerbe", "materielles...immobiles.Kulturerbe", "immaterielles.Kulturerbe", "Kanton")) %>% dplyr::rename("Institution"="Name.des.Akteurs", "Akteurshaupttypen" = "Haupttypen.rechtlicher.Institutionalisierung..Finanzierung..Auftrag..Organisationsform.", "Taetigkeitsebene" = "Tä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 ==""),] #table7 <- aggregate(cbind(MM.Bin, MI.Bin, I.Bin) ~ Akteurshaupttypen, # 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/ö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 ==""),] df_Hauptbereich_bin <- df_Hauptbereich_bin[!(df_Hauptbereich_bin$Akteurshaupttypen ==""),] df_Hauptbereich_bin$Taetigkeitsebene <- revalue(df_Hauptbereich_bin$Taetigkeitsebene, c("alle Ebenen"="national", "kantonal und Stadt/Gemeinde"="kantonal", "national und kantonal" = "national")) df_Hauptbereich_bin$Akteurshaupttypen <- revalue(df_Hauptbereich_bin$Akteurshaupttypen, c("staatlich/öffentlich" = "öffentlich")) df8 <- aggregate(cbind(MM.Bin, MI.Bin, I.Bin) ~ Akteurshaupttypen + Taetigkeitsebene, data=df_Hauptbereich_bin, FUN=sum) %>% arrange(match(Akteurshaupttypen, c("privat", "öffentlich", "hybrid"))) df8$Haupttypen <- str_c(df8$Akteurshaupttypen, ": ", df8$Taetigkeitsebene) df8$Haupttypen <- revalue(df8$Haupttypen, c("privat: Stadt/Gemeinde" = "privat: regional", "öffentlich: kantonal" = "öffentlich: Kanton", "öffentlich: national" = "öffentlich: Bund", "öffentlich: Stadt/Gemeinde" = "öffentlich: Stadt/Gemeinde", "hybrid: Stadt/Gemeinde" = "hybrid: regional")) df8.p <- df8[1:3, c(6, 3:5)] %>% janitor::adorn_totals(name = "Total privat") %>% arrange(match(Haupttypen, c("privat: national", "privat: kantonal", "privat: regional"))) df8.s <- df8[4:6, c(6, 3:5)] %>% janitor::adorn_totals(name = "Total öffentlich") df8.h <- df8[7:9, c(6, 3:5)] %>% janitor::adorn_totals(name = "Total hybrid") table8<- bind_rows(df8.p, df8.s, df8.h) %>% arrange(match(Haupttypen, c("privat: national", "privat: kantonal", "privat: regional", "Total privat", "öffentlich: Bund", "öffentlich: Kanton", "öffentlich: Stadt/Gemeinde", "Total öffentlich", "hybrid: national", "hybrid: kantonal", "hybrid: regional", "Total hybrid"))) %>% dplyr::rename("Akteurshaupttypen nach Tätigkeitsebene" = "Haupttypen", "Materielles + mobiles Kulturerbe"="MM.Bin", "Materielles + immobiles Kulturerbe" = "MI.Bin", "Immaterielles Kulturerbe"="I.Bin") #Abb8=kable(table8[-1], caption = "Abbildung 8: Anzahl Akteure nach Tätigkeitsebene in den drei Hauptbereichen (Haupttypen) Kulturebene", # col.names = c("Tätigkeitsebene", "Materielles + mobiles Kulturerbe", # "Materielles + immobiles Kulturerbe", "Immaterielles Kulturerbe")) %>% # kable_styling("striped", full_width = F) %>% # group_rows(index = c("hybrid" = 5, "privat" = 5, "staatlich/ö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", "Kanton", "rechtliche.Institutionalisierung.des.Auftrags", "Hauptfinanzierungsträger", "Haupttypen.rechtlicher.Institutionalisierung..Finanzierung..Auftrag..Organisationsform.", "Tätigkeitsebene..räumlich.", "materielles...mobiles.Kulturerbe", "materielles...immobiles.Kulturerbe", "immaterielles.Kulturerbe", "X.1..Erwerben", "X.2..Inventarisieren", "X.3..Erforschen", "X.4..Schützen...Erhalten", "X.5..Zugä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ützen...Erhalten", "zugang"="X.5..Zugä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ützen_Erhalten = if_else( condition = erhalten == "", true = "0", false = "1" ), Zugä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ützen_Erhalten", "Zugä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ützen_Erhalten", "Zugänglichmachen", "Reaktualisieren"))) table9$Handlungsfelder <- revalue(table9$Handlungsfelder, c("Schützen_Erhalten"="Schü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/öffentlich", "Sammelnhybrid", "Inventarisierenprivat", "Inventarisierenstaatlich/öffentlich", "Inventarisierenhybrid", "Erforschenprivat", "Erforschenstaatlich/öffentlich", "Erforschenhybrid", "Schützen_Erhaltenprivat", "Schützen_Erhaltenstaatlich/öffentlich", "Schützen_Erhaltenhybrid", "Zugänglichmachenprivat", "Zugänglichmachenstaatlich/öffentlich", "Zugänglichmachenhybrid", "Reaktualisierenprivat", "Reaktualisierenstaatlich/öffentlich", "Reaktualisierenhybrid"))) %>% select(c(1:5)) %>% dplyr::rename("Materielles + mobiles Kulturerbe"="materielles_mobiles_Kulturerbe", "Materielles + immobiles Kulturerbe" = "materielles_immobiles_Kulturerbe", "Immaterielles Kulturerbe"="immaterielles_Kulturerbe") table10$Handlungsfelder <- revalue(table10$Handlungsfelder, c("Schützen_Erhalten"="Schützen & Erhalten")) #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ützen und Erhalten" = 3, "Zugä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(1, 8, 9, 10)] %>% dplyr::rename( "Akteurshaupttypen" = "Haupttypen.rechtlicher.Institutionalisierung..Finanzierung..Auftrag..Organisationsform.") df_org$rechtliche.Organisationsform <- revalue(df_org$rechtliche.Organisationsform, c("privat: Stiftung"="Stiftungen", "staatlich/öffentlich: Behörde / Anstalt" = "Behörde/Anstalt", "privat: Verein/Verband" = "Verein", "hybrid: Verein/Verband" = "Verein", "privat: Einzelperson(en)"= "Einzelperson", "hybrid: Stiftung" = "Stiftungen", "privat: Kapitalgesellschaft"="Kapitalgesellschaft", "staatlich/öffentlich: Stiftung"="Stiftungen", "privat: Einzelunternehmen"="Einzelunternehmen", "privat: Genossenschaft" = "Genossenschaft", "hybrid: Kapitalgesellschaft" = "Kapitalgesellschaft")) df_Insti11_count <- df_org %>% dplyr::group_by(Akteurshaupttypen,rechtliche.Organisationsform) %>% dplyr::summarise(count=n()) table11df <- spread(df_Insti11_count, key=Akteurshaupttypen, value = count) table11df <- table11df[!(table11df$rechtliche.Organisationsform ==""),] table11df[is.na(table11df)] <- 0 table11df$Total <- rowSums(table11df[, c(3:5)]) table11 <- table11df[c(1,4,5,3,6)] %>% arrange(match(rechtliche.Organisationsform, c("Einzelperson", "Einzelunternehmen", "Stiftungen", "Genossenschaft", "Verein", "Kapitalgesellschaft", "Behörde/Anstalt", "Total")))%>% dplyr::rename("rechtliche Organisationsform"="rechtliche.Organisationsform", "öffentlich"="staatlich/öffentlich") #Abb11.1=table11 %>% kable(caption = "Abbildung 11: Anzahl Akteure (nach Haupttypen) nach rechtlichen Organisationsformen") %>% kable_styling() ##Abbildung 12: Anzahl Akteure (nach rechtlicher Organisationsform) nach Institutionalisierung des Auftrags df_Insti <- df_bak[c(1, 7, 8, 9, 10)] %>% dplyr::rename("rechtl.Institutionalisiserung"="rechtliche.Institutionalisierung.des.Auftrags", "rechtl.Organisationsform" = "rechtliche.Organisationsform") df_Insti$rechtl.Organisationsform <- plyr::revalue(df_Insti$rechtl.Organisationsform, c("privat: Stiftung"="Stiftung: privat", "staatlich/öffentlich: Behörde / Anstalt" = "Behörde/Anstalt", "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/öffentlich: Stiftung"="Stiftung: staatlich/ö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 table12 <- table12.prep %>% janitor::adorn_totals("row") %>% arrange(match(rechtl.Organisationsform, c("Einzelperson (privat)", "Einzelunternehmen (privat)", "Stiftung: privat", "Stiftung: staatlich/öffentlich", "Stiftung: hybrid", "Genossenschaft: privat", "Genossenschaft: staatlich/öffentlich", "Genossenschaft: hybrid", "Verein: privat", "Verein: staatlich/öffentlich", "Verein: hybrid", "Kapitalgesellschaft: privat", "Kapitalgesellschaft: staatlich/öffentlich", "Kapitalgesellschaft: hybrid", "Behö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 öffentlichem/gesetzlichem Auftrag")) %>% kable_styling() ## Abbildung 13: Anzahl Akteure (nach rechtlicher Institutionalisierung) nach Hauptfinanzierungsträgern df_finanzträger <- df_Insti %>% dplyr::group_by(Hauptfinanzierungsträger, rechtl.Organisationsform) %>% dplyr::summarise(count=n()) table13.df <- spread(df_finanzträger, key=Hauptfinanzierungsträger, value = count) table13 <- table13.df %>% adorn_totals("row") %>% arrange(match(rechtl.Organisationsform, c("Einzelperson (privat)", "Einzelunternehmen (privat)", "Stiftung: privat", "Stiftung: staatlich/öffentlich", "Stiftung: hybrid", "Genossenschaft: privat", "Genossenschaft: staatlich/öffentlich", "Genossenschaft: hybrid", "Verein: privat", "Verein: staatlich/öffentlich", "Verein: hybrid", "Kapitalgesellschaft: privat", "Kapitalgesellschaft: staatlich/öffentlich", "Kapitalgesellschaft: hybrid", "Behörde/Anstalt", "Total"))) %>% dplyr::rename("Hauptfinanzierungsträger: privat"="privat", "Hauptfinanzierungsträger: öffentlich" = "staatlich/öffentlich") #Abb13=table13%>% kable(caption = "Abbildung 13: Anzahl Akteure (nach rechtlicher Institutionalisierung) nach Hauptfinanzierungsträgern", # col.names = c("rechtliche Organisationsform nach Haupttypen Akteure", "Hauptfinanzierungsträger: privat", # "Hauptfinanzierungsträger: ö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ützen_Erhalten", "Zugänglichmachen", "Reaktualisieren"))) %>% dplyr::rename("rechliche_Institutionalisierung" = "rechtliche.Institutionalisierung.des.Auftrags", "Materielles + mobiles Kulturerbe"="materielles_mobiles_Kulturerbe", "Materielles + immobiles Kulturerbe" = "materielles_immobiles_Kulturerbe", "Immaterielles Kulturerbe"="immaterielles_Kulturerbe") table14$Handlungsfelder <- revalue(table14$Handlungsfelder, c("Schützen_Erhalten"="Schützen & Erhalten", "Reaktualisieren" = "Reaktualisieren (Valorisieren)")) table14$rechliche_Institutionalisierung <- revalue(table14$rechliche_Institutionalisierung, c("mit eigenem (privatem) Auftrag"="privater Auftrag", "mit öffentlichem/gesetzlichem Auftrag" = "öffentlicher Auftrag")) #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ützen und Erhalten" = 2, "Zugänglichmachen" = 2), # label_row_css = "background-color: #FDDD9FFF; color: #000004FF;") ##Abbildung 15: Anzahl Akteure (nach Hauptfinanzierungsträger) in sechs Handlungsfelder nach Haupttypen Kulturerbe df15_mm <- dplyr::filter(df_Akteure_bin_wide2, !(materielles...mobiles.Kulturerbe %in% "")) %>% group_by(Handlungsfelder, Hauptfinanzierungsträger) %>% dplyr::summarise(materielles_mobiles_Kulturerbe=n()) df15_mi <- dplyr::filter(df_Akteure_bin_wide2, !(materielles...immobiles.Kulturerbe %in% "")) %>% group_by(Handlungsfelder, Hauptfinanzierungsträger) %>% dplyr::summarise(materielles_immobiles_Kulturerbe=n()) df15_i <- dplyr::filter(df_Akteure_bin_wide2, !(immaterielles.Kulturerbe %in% "")) %>% group_by(Handlungsfelder, Hauptfinanzierungsträger) %>% dplyr::summarise(immaterielles_Kulturerbe=n()) table15 <-full_join(df15_mm, df15_mi, by=c("Handlungsfelder", "Hauptfinanzierungsträger")) %>% merge(df15_i) %>% arrange(match(Handlungsfelder, c("Sammeln", "Inventarisieren", "Erforschen", "Schützen_Erhalten", "Zugänglichmachen", "Reaktualisieren"))) %>% dplyr::rename("Handlusfelder/Hauptfinanzierung" = "Handlungsfelder", "Materielles + mobiles Kulturerbe"="materielles_mobiles_Kulturerbe", "Materielles + immobiles Kulturerbe" = "materielles_immobiles_Kulturerbe", "Immaterielles Kulturerbe"="immaterielles_Kulturerbe") table15$Handlungsfelder <- revalue(table15$Handlungsfelder, c("Schützen_Erhalten"="Schützen & Erhalten")) table15$Handlungsfelder <- revalue(table15$Handlungsfelder, c("Reaktualisieren"="Reaktualisieren (Valorisieren)")) #Abb15=table15[-1] %>% kable(caption = "Abbildung 15: Anzahl Akteure (nach Hauptfinanzierungsträ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ützen und Erhalten" = 2, "Zugänglichmachen" = 2), # label_row_css = "background-color: #FDDD9FFF; color: #000004FF;") mm16 <- dplyr::filter(df_bak[c(9, 15:17)], !(materielles...mobiles.Kulturerbe %in% "")) %>% group_by(rechtliche.Organisationsform) %>% dplyr::summarise(materielles_mobiles_Kulturerbe=n()) mi16 <- dplyr::filter(df_bak[c(9, 15:17)], !(materielles...immobiles.Kulturerbe %in% "")) %>% group_by(rechtliche.Organisationsform) %>% dplyr::summarise(materielles_immobiles_Kulturerbe=n()) mmmi16 <- full_join(mm16, mi16, by=c("rechtliche.Organisationsform")) i16 <- dplyr::filter(df_bak[c(9, 15:17)], !(immaterielles.Kulturerbe %in% "")) %>% group_by(rechtliche.Organisationsform) %>% dplyr::summarise(immaterielles_Kulturerbe=n()) df16 <- full_join(mmmi16, i16, by=c("rechtliche.Organisationsform")) df16 <- df16[!(df16$rechtliche.Organisationsform ==""),] df16$rechtliche.Organisationsform <- plyr::revalue(df16$rechtliche.Organisationsform, c("privat: Stiftung"="Stiftung: privat", "staatlich/öffentlich: Behörde / Anstalt" = "Behörde/Anstalt", "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/öffentlich: Stiftung"="Stiftung: staatlich/öffentlich", "privat: Einzelunternehmen"="Einzelunternehmen (privat)")) table16 <- df16 %>% arrange(match(rechtliche.Organisationsform, c("Einzelperson (privat)", "Einzelunternehmen (privat)", "Stiftung: privat", "Stiftung: staatlich/öffentlich", "Stiftung: hybrid", "Genossenschaft: privat", "Genossenschaft: staatlich/öffentlich", "Genossenschaft: hybrid", "Verein: privat", "Verein: staatlich/öffentlich", "Verein: hybrid", "Kapitalgesellschaft: privat", "Kapitalgesellschaft: staatlich/öffentlich", "Kapitalgesellschaft: hybrid", "Behörde/Anstalt"))) #WRITE TABLES write.table(table8, sep= ";", row.names = F, file = "~/BAK_Projekt/Tabellen/Abb9.csv") write.table(table9, sep= ";", row.names = F, file = "~/BAK_Projekt/Tabellen/Abb10.csv") write.table(table10, sep= ";", row.names = F, file = "~/BAK_Projekt/Tabellen/Abb11.csv") write.table(table12, sep= ";", row.names = F, file = "~/BAK_Projekt/Tabellen/Abb28.csv") write.table(table13, sep= ";", row.names = F, file = "~/BAK_Projekt/Tabellen/Abb36.csv") write.table(table11, sep= ";", row.names = F, file = "~/BAK_Projekt/Tabellen/Abb27.csv") write.table(table14, sep= ";", row.names = F, file = "~/BAK_Projekt/Tabellen/Abb14.csv") write.table(table15, sep= ";", row.names = F, file = "~/BAK_Projekt/Tabellen/Abb15.csv") write.table(table16, sep= ";", row.names = F, file = "~/BAK_Projekt/Tabellen/Abb16.csv") write.table(df_Akteure_bin_wide2, sep= ";", row.names = F, file = "~/BAK_Projekt/df_Akteure_binwide.csv")