diff --git a/Heatmaps.R b/Heatmaps.R
index 581a8b2..cc388e0 100644
--- a/Heatmaps.R
+++ b/Heatmaps.R
@@ -91,8 +91,13 @@ df_mm2 <- dplyr::filter(df_binKanton, !(materielles...mobiles.Kulturerbe %in% ""
 
 f2_mm <- RSwissMaps::can.plot(df_mm2.1$bfs_nr, df_mm2.1$percent, 2016, 
                               boundaries = "c", boundaries_size = 0.2, boundaries_color = "white",
-                              title = "Anzahl Akteure (nach Hauptfinanzierungsträger) im Handlungsfeld\n'Reaktualisieren/Valorisieren' bezüglich materiellem und mobilem Kulturerbe",
-                              legend_title = "Je dunkler die Färbung, desto höher ist der\nprozentuale Anteil an staatliche/öffentliche Hauptfinanzierungsträgern")
+                              title = "Anzahl Akteure (nach Hauptfinanzierungsträger) im Handlungsfeld\n'Reaktualisieren/Valorisieren' bezüglich materiellem und mobilem Kulturerbe")+
+  scale_fill_continuous(low = "#FEE5D9", high = "#A50F15",space = "Lab", na.value = "grey90", guide = "colourbar",
+                        breaks = c(1, 0.8, 0.6, 0.4, 0.2, 0), 
+                        labels = c("100 %","80 %", "60 %", "40 %", "20 %", "0 %"))+
+  theme(legend.position = "right",
+        legend.key.size = unit(0.8, "cm")) +
+  guides(fill=guide_colourbar(title = "Prozentualer Anteil von\nAkteuren mit einem\nstaatlichen / öffentlichen\nHauptfinanzierungsträger"))
 
 ##Materielles immobiles Kutlurerbe
 df_mi2 <- dplyr::filter(df_binKanton, !(materielles...immobiles.Kulturerbe %in% "")) %>% 
@@ -111,8 +116,13 @@ df_mi2 <- dplyr::filter(df_binKanton, !(materielles...immobiles.Kulturerbe %in%
 
 f2_mi <- RSwissMaps::can.plot(df_mi2.1$bfs_nr, df_mi2.1$percent, 2016, 
                               boundaries = "c", boundaries_size = 0.2, boundaries_color = "white",
-                              title = "Anzahl Akteure (nach Hauptfinanzierungsträger) im Handlungsfeld\n'Reaktualisieren/Valorisieren' bezüglich materiellem und immobilem Kulturerbe",
-                              legend_title = "Je dunkler die Färbung, desto höher ist der\nprozentuale Anteil an staatliche/öffentliche Hauptfinanzierungsträgern")
+                              title = "Anzahl Akteure (nach Hauptfinanzierungsträger) im Handlungsfeld\n'Reaktualisieren/Valorisieren' bezüglich materiellem und immobilem Kulturerbe")+
+  scale_fill_continuous(low = "#FEE5D9", high = "#A50F15",space = "Lab", na.value = "grey90", guide = "colourbar",
+                        breaks = c(1, 0.8, 0.6, 0.4, 0.2, 0), 
+                        labels = c("100 %", "80 %", "60 %", "40 %", "20 %", "0 %"))+
+  theme(legend.position = "right",
+        legend.key.size = unit(0.8, "cm")) +
+  guides(fill=guide_colourbar(title = "Prozentualer Anteil von\nAkteuren mit einem\nstaatlichen / öffentlichen\nHauptfinanzierungsträger"))
 
 ##Immaterielles Kulturerbe
 df_i2 <- dplyr::filter(df_binKanton, !(immaterielles.Kulturerbe %in% "")) %>% 
@@ -130,18 +140,25 @@ df_i2 <- dplyr::filter(df_binKanton, !(immaterielles.Kulturerbe %in% "")) %>%
     df_i2.1 <- rbind(df_i2, new.r_i)
 
 f2_i <- RSwissMaps::can.plot(df_i2.1$bfs_nr, df_i2.1$percent, 2016, 
-                             boundaries = "c", boundaries_size = 0.2, boundaries_color = "white",
-                             title = "Anzahl Akteure (nach Hauptfinanzierungsträger) im Handlungsfeld\n'Reaktualisieren/Valorisieren' bezüglich immateriellem Kulturerbe",
-                             legend_title = "Je dunkler die Färbung, desto höher ist der\nprozentuale Anteil an staatliche/öffentliche Hauptfinanzierungsträgern")
+                         boundaries = "c", boundaries_size = 0.5, boundaries_color = "white",
+                         title = "Anzahl Akteure (nach Hauptfinanzierungsträger) im Handlungsfeld 'Reaktualisieren/Valorisieren'\nbezüglich immateriellem Kulturerbe") +
+      scale_fill_continuous(low = "#FEE5D9", high = "#A50F15",space = "Lab", na.value = "grey90", guide = "colourbar",
+                            breaks = c(1, 0.8, 0.6, 0.4, 0.2, 0), 
+                            labels = c("100 %","80 %", "60 %", "40 %", "20 %", "0 %"))+
+      theme(legend.position = "right",
+            legend.key.size = unit(0.8, "cm")) +
+      guides(fill=guide_colourbar(title = "Prozentualer Anteil von\nAkteuren mit einem\nstaatlichen / öffentlichen\nHauptfinanzierungsträger"))
+    
+    
+  
 
 
 
-
-ggsave(plot=f2_mm, filename = "Figure2_mm.jpg", device="jpg", width = 15, height = 10,
+ggsave(plot=f2_mm, filename = "Figure2_mm.jpg", device="jpg", width = 8, height = 5,
        path = "~/BAK_Projekt/Figures")
-ggsave(plot=f2_mi, filename = "Figure2_mi.jpg", device="jpg", width = 15, height = 10,
+ggsave(plot=f2_mi, filename = "Figure2_mi.jpg", device="jpg", width = 8, height = 5,
        path = "~/BAK_Projekt/Figures")
-ggsave(plot=f2_i, filename = "Figure2_i.jpg", device="jpg", width = 15, height = 10,
+ggsave(plot=f2_i, filename = "Figure2_i.jpg", device="jpg", width = 8, height = 5,
        path = "~/BAK_Projekt/Figures")
 
 
@@ -163,5 +180,5 @@ ggsave(plot=f2_i, filename = "Figure2_i.jpg", device="jpg", width = 15, height =
 #         title = "Beispiel Kanton Graubünden (Bezirksebene)") 
 
 
-  
+