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.

BAK.V1.R

@@ -0,0 +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")) %>% 
+                    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 ==""),]
+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 <- 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 %>% 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;") 
+