Compare commits
2 Commits
cd3b9b2291
...
775d439400
| Author | SHA1 | Date |
|---|---|---|
Müller Stefanie
|
775d439400 | |
|
Müller Stefanie
|
45ff43c348 |
458
BAK.R
458
BAK.R
|
|
@ -1,126 +1,332 @@
|
|||
## presetting and insert dataset
|
||||
rm(list=ls())
|
||||
library(dplyr)
|
||||
library(plyr)
|
||||
library(stats)
|
||||
|
||||
setwd("~/BAK_Projekt")
|
||||
|
||||
df_bak <- read.csv("~/BAK_Projekt/Liste_BAK.csv", sep = ";")
|
||||
|
||||
############# create tables #############
|
||||
|
||||
#binary dataset with selected columns
|
||||
|
||||
table_allg <- 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." )
|
||||
|
||||
|
||||
table_allg[table_allg == ""] <- 0
|
||||
var.MM <-unique(table_allg$materielles...mobiles.Kulturerbe)
|
||||
var.MM <- var.MM[var.MM!=0]
|
||||
var.IM <-unique(table_allg$materielles...immobiles.Kulturerbe)
|
||||
var.IM <- var.IM[var.IM!=0]
|
||||
var.I <- unique(table_allg$immaterielles.Kulturerbe)
|
||||
var.I <- var.I[var.I!=0]
|
||||
|
||||
##FIND SOLUTION!!!
|
||||
table_allg_BIN <- table_allg %>% dplyr::mutate(materiell_mobil_BIN=case_when(
|
||||
materielles...mobiles.Kulturerbe== var.MM[1]~ 1, materielles...mobiles.Kulturerbe== var.MM[2]~ 1, materielles...mobiles.Kulturerbe== var.MM[3]~ 1,materielles...mobiles.Kulturerbe== var.MM[4]~ 1,
|
||||
materielles...mobiles.Kulturerbe== var.MM[5]~ 1, materielles...mobiles.Kulturerbe== var.MM[6]~ 1, materielles...mobiles.Kulturerbe== var.MM[7]~ 1,materielles...mobiles.Kulturerbe== var.MM[8]~ 1,
|
||||
materielles...mobiles.Kulturerbe== var.MM[9]~ 1, materielles...mobiles.Kulturerbe== var.MM[10]~ 1, materielles...mobiles.Kulturerbe== var.MM[11]~ 1,materielles...mobiles.Kulturerbe== var.MM[12]~ 1,
|
||||
materielles...mobiles.Kulturerbe== var.MM[13]~ 1, materielles...mobiles.Kulturerbe== var.MM[14]~ 1, materielles...mobiles.Kulturerbe== var.MM[15]~ 1),
|
||||
materiell_immobil_BIN=case_when(
|
||||
materielles...immobiles.Kulturerbe== var.IM[1]~ 1, materielles...immobiles.Kulturerbe== var.IM[2]~ 1, materielles...immobiles.Kulturerbe== var.IM[3]~ 1,materielles...immobiles.Kulturerbe== var.IM[4]~ 1,
|
||||
materielles...immobiles.Kulturerbe== var.IM[5]~ 1, materielles...immobiles.Kulturerbe== var.IM[6]~ 1, materielles...immobiles.Kulturerbe== var.IM[7]~ 1,materielles...immobiles.Kulturerbe== var.IM[8]~ 1),
|
||||
immateriell_BIN=case_when(
|
||||
immaterielles.Kulturerbe== var.I[1]~ 1, immaterielles.Kulturerbe== var.I[2]~ 1, immaterielles.Kulturerbe== var.I[3]~ 1,immaterielles.Kulturerbe== var.I[4]~ 1,
|
||||
immaterielles.Kulturerbe== var.I[5]~ 1))
|
||||
table_allg_BIN[is.na(table_allg_BIN)] <- 0
|
||||
|
||||
|
||||
##Abbildung 7: Akteurshaupttypen
|
||||
##sum columns by group
|
||||
df_haupttypen <- table_allg_BIN[!(table_allg_BIN$Akteurshaupttypen=="0"),]
|
||||
Akteurshaupttypen <- aggregate(cbind(materiell_mobil_BIN, materiell_immobil_BIN, immateriell_BIN) ~ Akteurshaupttypen,
|
||||
data=df_haupttypen,
|
||||
FUN=sum)
|
||||
Akteurshaupttypen
|
||||
|
||||
|
||||
##Abbildung 8: Akteurshauptttypen nach Taetigkeitsebene
|
||||
#Output stimmt noch nicht mit Tabellen im Text überein
|
||||
df_taet <- table_allg_BIN[!(table_allg_BIN$Akteurshaupttypen =="0"),]
|
||||
df_taet <- df_taet[!(df_taet$Taetigkeitsebene=="0"),]
|
||||
|
||||
Akteur_Taet <- aggregate(cbind(materiell_mobil_BIN, materiell_immobil_BIN, immateriell_BIN) ~ Akteurshaupttypen + Taetigkeitsebene,
|
||||
data=df_taet,
|
||||
FUN=sum)
|
||||
Akteur_Taet
|
||||
|
||||
|
||||
########OPEN -> ABB9 & 10 ##########
|
||||
##Abbildung 9
|
||||
#binary dataset with selected columns
|
||||
|
||||
df_abb9 <- select(df_bak, c("Name.des.Akteurs",
|
||||
"Haupttypen.rechtlicher.Institutionalisierung..Finanzierung..Auftrag..Organisationsform.",
|
||||
"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")
|
||||
|
||||
|
||||
df_abb9[df_abb9 == ""] <- 0
|
||||
var.erw <- unique(df_abb9$erwerben)
|
||||
var.erw <- var.erw[var.erw!=0]
|
||||
var.invent <- unique(df_abb9$inventarisieren)
|
||||
var.invent <- var.invent[var.invent!=0]
|
||||
var.erf <- unique(df_abb9$erforschen)
|
||||
var.erf <- var.erf[var.erf!=0]
|
||||
var.erh <- unique(df_abb9$erhalten)
|
||||
var.erh <- var.erh[var.erh!=0]
|
||||
var.zug <- unique(df_abb9$zugang)
|
||||
var.zug <- var.zug[var.zug!=0]
|
||||
var.reak <- unique(df_abb9$reaktualisieren)
|
||||
var.reak <- var.reak[var.reak!=0]
|
||||
|
||||
##FIND SOLUTION!!!
|
||||
table9_BIN <- df_abb9 %>% dplyr::mutate(Erwerben_Bin=case_when(
|
||||
erwerben == var.erw[1]~ 1, erwerben == var.erw[2]~ 1),
|
||||
Inventarisieren_Bin=case_when(
|
||||
inventarisieren == var.invent[1]~ 1, inventarisieren == var.invent[2]~ 1, inventarisieren == var.invent[3]~ 1),
|
||||
Erforschen_Bin=case_when(
|
||||
erforschen == var.erf[1]~1, erforschen == var.erf[2]~1),
|
||||
Erhalten_Bin=case_when(
|
||||
erhalten == var.erh[1]~1, erhalten == var.erh[2]~1),
|
||||
Zugaenglich_Bin=case_when(
|
||||
zugang == var.zug[1]~1, zugang == var.zug[2]~1),
|
||||
Reaktualisieren_Bin=case_when(
|
||||
reaktualisieren == var.reak[1]~1, reaktualisieren == var.reak[2]~1
|
||||
)
|
||||
)
|
||||
|
||||
table9_BIN[is.na(table9_BIN)] <- 0
|
||||
|
||||
df_nrAkt <- merge(df_haupttypen, table9_BIN, by=c("Institution", "Akteurshaupttypen"))
|
||||
|
||||
|
||||
#create table
|
||||
df_t9 <- df_nrAkt[!(df_nrAkt$Institution=="0"),]
|
||||
################
|
||||
#ABB11 Dataframe
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
## 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;")
|
||||
|
||||
|
|
|
|||
332
BAK.V1.R
332
BAK.V1.R
|
|
@ -1,332 +0,0 @@
|
|||
## 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;")
|
||||
|
||||
Loading…
Reference in New Issue