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

Visual Adjustments of Heatmaps 

- bigger scale
- legend position
- legend text
master
Stefanie Müller 2022-03-30 11:13:14 +02:00
parent 55fcc0518a
commit 23f1a10458
1 changed files with 29 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
Heatmaps.R
View File

@ -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, f2_mm <- RSwissMaps::can.plot(df_mm2.1$bfs_nr, df_mm2.1$percent, 2016,
boundaries = "c", boundaries_size = 0.2, boundaries_color = "white", 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", 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") 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 ##Materielles immobiles Kutlurerbe
df_mi2 <- dplyr::filter(df_binKanton, !(materielles...immobiles.Kulturerbe %in% "")) %>% 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, f2_mi <- RSwissMaps::can.plot(df_mi2.1$bfs_nr, df_mi2.1$percent, 2016,
boundaries = "c", boundaries_size = 0.2, boundaries_color = "white", 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", 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") 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 ##Immaterielles Kulturerbe
df_i2 <- dplyr::filter(df_binKanton, !(immaterielles.Kulturerbe %in% "")) %>% 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) df_i2.1 <- rbind(df_i2, new.r_i)
f2_i <- RSwissMaps::can.plot(df_i2.1$bfs_nr, df_i2.1$percent, 2016, f2_i <- RSwissMaps::can.plot(df_i2.1$bfs_nr, df_i2.1$percent, 2016,
boundaries = "c", boundaries_size = 0.2, boundaries_color = "white", boundaries = "c", boundaries_size = 0.5, boundaries_color = "white",
title = "Anzahl Akteure (nach Hauptfinanzierungsträger) im Handlungsfeld\n'Reaktualisieren/Valorisieren' bezüglich immateriellem Kulturerbe", title = "Anzahl Akteure (nach Hauptfinanzierungsträger) im Handlungsfeld 'Reaktualisieren/Valorisieren'\nbezüglich immateriellem Kulturerbe") +
legend_title = "Je dunkler die Färbung, desto höher ist der\nprozentuale Anteil an staatliche/öffentliche Hauptfinanzierungsträgern") 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 = 8, height = 5,
ggsave(plot=f2_mm, filename = "Figure2_mm.jpg", device="jpg", width = 15, height = 10,
path = "~/BAK_Projekt/Figures") 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") 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") 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)") # title = "Beispiel Kanton Graubünden (Bezirksebene)")