diff --git a/BAK.V1.R b/BAK.R similarity index 98% rename from BAK.V1.R rename to BAK.R index ba7c069..d06ddbe 100644 --- a/BAK.V1.R +++ b/BAK.R @@ -1,332 +1,332 @@ -## 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ä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+Kanton, - 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 ==""),] -table8 <- aggregate(cbind(MM.Bin, MI.Bin, I.Bin) ~ Akteurshaupttypen + Taetigkeitsebene, - data=df_Hauptbereich_bin, - FUN=sum)%>% - dplyr::rename("Tätigkeitsebene" ="Taetigkeitsebene", "Materielles + mobiles Kulturerbe"="MM.Bin", - "Materielles + immobiles Kulturerbe" = "MI.Bin", - "Immaterielles Kulturerbe"="I.Bin") %>% - arrange(match(Akteurshaupttypen, c("privat", "staatlich/öffentlich", "hybrid"))) - - - -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", "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)) - -#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(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/öffentlich: Behörde / Anstalt" = "Behörde/Anstalt", "privat: Verein/Verband" = "Verein", - "hybrid: Verein/Verband" = "Verein", "privat: Einzelperson(en)"= "Einzelperson", "hybrid: Stiftung" = "Stiftung", - "privat: Kapitalgesellschaft"="Kapitalgesellschaft", "staatlich/ö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örde/Anstalt")))%>% - 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() -###### - - ##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/öffentlich: Behörde / Anstalt" = "Behörde/Anstalt", "privat: Verein/Verband" = "Verein", - "hybrid: Verein/Verband" = "Verein", "privat: Einzelperson(en)"= "Einzelperson", "hybrid: Stiftung" = "Stiftung", - "privat: Kapitalgesellschaft"="Kapitalgesellschaft", "staatlich/ö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örde/Anstalt"))) - -Abb11.2=table11.2 %>% kable(caption = "Abbildung 11: Anzahl Akteure (nach Haupttypen) nach rechtlichen Organisationsformen", - col.names = c("rechtliche Organisationsform","privat", "ö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") -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"))) - -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"))) - -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"))) - - -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;") - +## 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ä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+Kanton, + 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 ==""),] +table8 <- aggregate(cbind(MM.Bin, MI.Bin, I.Bin) ~ Akteurshaupttypen + Taetigkeitsebene, + data=df_Hauptbereich_bin, + FUN=sum)%>% + dplyr::rename("Tätigkeitsebene" ="Taetigkeitsebene", "Materielles + mobiles Kulturerbe"="MM.Bin", + "Materielles + immobiles Kulturerbe" = "MI.Bin", + "Immaterielles Kulturerbe"="I.Bin") %>% + arrange(match(Akteurshaupttypen, c("privat", "staatlich/öffentlich", "hybrid"))) + + + +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", "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)) + +#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(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/öffentlich: Behörde / Anstalt" = "Behörde/Anstalt", "privat: Verein/Verband" = "Verein", + "hybrid: Verein/Verband" = "Verein", "privat: Einzelperson(en)"= "Einzelperson", "hybrid: Stiftung" = "Stiftung", + "privat: Kapitalgesellschaft"="Kapitalgesellschaft", "staatlich/ö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örde/Anstalt")))%>% + 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() +###### + + ##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/öffentlich: Behörde / Anstalt" = "Behörde/Anstalt", "privat: Verein/Verband" = "Verein", + "hybrid: Verein/Verband" = "Verein", "privat: Einzelperson(en)"= "Einzelperson", "hybrid: Stiftung" = "Stiftung", + "privat: Kapitalgesellschaft"="Kapitalgesellschaft", "staatlich/ö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örde/Anstalt"))) + +Abb11.2=table11.2 %>% kable(caption = "Abbildung 11: Anzahl Akteure (nach Haupttypen) nach rechtlichen Organisationsformen", + col.names = c("rechtliche Organisationsform","privat", "ö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") +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"))) + +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"))) + +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"))) + + +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;") +