BAK-Kulturgueter/BAK.R

## 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<EFBFBD>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<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 ==""),]
#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/<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 ==""),]
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/<2F>ffentlich" = "<EFBFBD>ffentlich"))

df8 <- aggregate(cbind(MM.Bin, MI.Bin, I.Bin) ~ Akteurshaupttypen + Taetigkeitsebene, 
                              data=df_Hauptbereich_bin,
                              FUN=sum) %>% arrange(match(Akteurshaupttypen, c("privat", "<EFBFBD>ffentlich", "hybrid")))
df8$Haupttypen <- str_c(df8$Akteurshaupttypen, ": ", df8$Taetigkeitsebene)
df8$Haupttypen <- revalue(df8$Haupttypen, c("privat: Stadt/Gemeinde" = "privat: regional", "<EFBFBD>ffentlich: kantonal" = "<EFBFBD>ffentlich: Kanton",  
                                            "<EFBFBD>ffentlich: national" = "<EFBFBD>ffentlich: Bund", "<EFBFBD>ffentlich: Stadt/Gemeinde" = "<EFBFBD>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 <20>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", 
                                                                               "<EFBFBD>ffentlich: Bund", "<EFBFBD>ffentlich: Kanton",                   
                                                                              "<EFBFBD>ffentlich: Stadt/Gemeinde", "Total <20>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/<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", "Kanton", "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)) %>% 
  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<EFBFBD>tzen_Erhalten"="Sch<EFBFBD>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<63>tzen und Erhalten" = 3, "Zug<75>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/<2F>ffentlich: Beh<65>rde / Anstalt" = "Beh<EFBFBD>rde/Anstalt", 
                                                                                      "privat: Verein/Verband" = "Verein", "hybrid: Verein/Verband" = "Verein", 
                                                                                      "privat: Einzelperson(en)"= "Einzelperson", "hybrid: Stiftung" = "Stiftungen",
                                                                                      "privat: Kapitalgesellschaft"="Kapitalgesellschaft", "staatlich/<2F>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<EFBFBD>rde/Anstalt", "Total")))%>% 
  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()
  
  ##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/<2F>ffentlich: Beh<65>rde / Anstalt" = "Beh<EFBFBD>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/<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

table12 <- table12.prep %>% janitor::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")))


##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"))) %>% 
  dplyr::rename("Hauptfinanzierungstr<EFBFBD>ger: privat"="privat",
                "Hauptfinanzierungstr<EFBFBD>ger: <20>ffentlich" = "staatlich/<2F>ffentlich") 

#Abb13=table13%>% kable(caption = "Abbildung 13: Anzahl Akteure (nach rechtlicher Institutionalisierung) nach Hauptfinanzierungstr<74>gern",
#                      col.names = c("rechtliche Organisationsform nach Haupttypen Akteure", "Hauptfinanzierungstr<74>ger: privat",
#                                    "Hauptfinanzierungstr<74>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"))) %>% 
  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<EFBFBD>tzen_Erhalten"="Sch<EFBFBD>tzen & Erhalten", "Reaktualisieren" = "Reaktualisieren (Valorisieren)")) 
table14$rechliche_Institutionalisierung <- revalue(table14$rechliche_Institutionalisierung, c("mit eigenem (privatem) Auftrag"="privater Auftrag",
                                                                                              "mit <20>ffentlichem/gesetzlichem Auftrag" = "<EFBFBD>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<63>tzen und Erhalten" = 2, "Zug<75>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"))) %>% 
  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<EFBFBD>tzen_Erhalten"="Sch<EFBFBD>tzen & Erhalten")) 
table15$Handlungsfelder <- revalue(table15$Handlungsfelder, c("Reaktualisieren"="Reaktualisieren (Valorisieren)")) 


#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<63>tzen und Erhalten" = 2, "Zug<75>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/<2F>ffentlich: Beh<65>rde / Anstalt" = "Beh<EFBFBD>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/<2F>ffentlich: Stiftung"="Stiftung: staatlich/<2F>ffentlich", 
                                                                                        "privat: Einzelunternehmen"="Einzelunternehmen (privat)"))   
  
table16 <- df16 %>% arrange(match(rechtliche.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")))



#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")