diff --git a/BAK.V1.R b/BAK.V1.R
index 1a79dc2..ba7c069 100644
--- a/BAK.V1.R
+++ b/BAK.V1.R
@@ -24,7 +24,7 @@ df_Hauptbereich <- select(df_bak, c("Name.des.Akteurs",
                                "Tätigkeitsebene..räumlich.",
                                "materielles...mobiles.Kulturerbe", 
                                "materielles...immobiles.Kulturerbe", 
-                               "immaterielles.Kulturerbe")) %>% 
+                               "immaterielles.Kulturerbe", "Kanton")) %>% 
                     dplyr::rename("Institution"="Name.des.Akteurs",
                                   "Akteurshaupttypen" = "Haupttypen.rechtlicher.Institutionalisierung..Finanzierung..Auftrag..Organisationsform.",
                                   "Taetigkeitsebene" = "Tätigkeitsebene..räumlich." ) 
@@ -50,7 +50,7 @@ df_Hauptbereich_bin <- df_Hauptbereich %>%  mutate(
 
   ##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, 
+table7 <- aggregate(cbind(MM.Bin, MI.Bin, I.Bin) ~ Akteurshaupttypen+Kanton, 
                                data=df_Hauptbereich_bin,
                                FUN=sum) %>% 
   dplyr::rename("Materielles + mobiles Kulturerbe"="MM.Bin",
@@ -247,7 +247,7 @@ Abb11.2=table11.2 %>%  kable(caption = "Abbildung 11: Anzahl Akteure (nach Haupt
   ##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", 
+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",
@@ -260,7 +260,7 @@ df_Insti12_count <- df_Insti %>% dplyr::group_by(rechtl.Institutionalisiserung,r
 table12.prep <- spread(df_Insti12_count, key=rechtl.Institutionalisiserung, value = count)
 table12.prep[is.na(table12.prep)] <- 0
 
-table12 <- table12.prep %>% adorn_totals("row") %>% 
+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",