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

Updated Data 

- latest data
- minor changes in code (order of rows, columns, names, etc.)
- new table (table16 in code)
master
Stefanie Müller 2022-03-16 12:58:05 +01:00
parent 775d439400
commit 044c8b1655
1 changed files with 168 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

263
BAK.R
View File

@ -10,10 +10,11 @@ library(kableExtra)
library(janitor)
library(viridis)
library(scales)
library(stringr)
setwd("~/BAK_Projekt")
df_bak <- read.csv("~/BAK_Projekt/Liste_BAK2.csv", sep = ";")
df_bak <- read.csv("~/BAK_Projekt/Liste_BAK3.csv", sep = ";")
############# create tables #############
@ -21,6 +22,7 @@ df_bak <- read.csv("~/BAK_Projekt/Liste_BAK2.csv", sep = ";")
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",
@ -49,41 +51,59 @@ df_Hauptbereich_bin <- df_Hauptbereich %>% mutate(
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")))
#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()
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)
##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,
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)%>%
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")))
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
#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
@ -160,9 +180,9 @@ table9 <- full_join(df_mm, df_mi, by="Handlungsfelder") %>%
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()
#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% "")) %>%
@ -182,16 +202,20 @@ table10 <- table10_df %>%
"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))
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
#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
@ -199,50 +223,31 @@ Abb10=table10[-1] %>% kable(caption = "Abbildung 10: Anzahl Akteure (nach Hauptt
##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_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())
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)])
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 <- table11[c(1,4,5,3,6)] %>%
arrange(match(rechtliche.Organisationsform, c("Einzelperson", "Einzelunternehmen", "Stiftung", "Genossenschaft", "Verein",
"Kapitalgesellschaft", "Behörde/Anstalt")))%>%
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()
######
##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()
#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(7, 8, 9, 10)] %>% dplyr::rename("rechtl.Institutionalisiserung"="rechtliche.Institutionalisierung.des.Auftrags",
@ -269,8 +274,8 @@ table12 <- table12.prep %>% janitor::adorn_totals("row") %>%
"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()
##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) %>%
@ -282,11 +287,13 @@ table13 <- table13.df %>% adorn_totals("row") %>%
"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")))
"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()
#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
@ -299,15 +306,24 @@ df14_i <- dplyr::filter(df_Akteure_bin_wide2, !(immaterielles.Kulturerbe %in% ""
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")))
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")
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;")
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% "")) %>%
@ -319,14 +335,71 @@ df15_i <- dplyr::filter(df_Akteure_bin_wide2, !(immaterielles.Kulturerbe %in% ""
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")))
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")
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;")