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

Delete BAK.R 

incomplete script
master
Müller Stefanie 2022-02-13 15:28:19 +01:00
parent cd3b9b2291
commit 45ff43c348
1 changed files with 0 additions and 126 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

126
BAK.R
View File

@ -1,126 +0,0 @@
## 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