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

Minor Changes

master
Stefanie Müller 2022-03-30 13:20:18 +02:00
parent 23f1a10458
commit b3db717cb4
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Heatmaps.R
View File

@ -144,7 +144,8 @@ f2_i <- RSwissMaps::can.plot(df_i2.1$bfs_nr, df_i2.1$percent, 2016,
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 %"))+
labels = c("100 %","80 %", "60 %", "40 %", "20 %", "0 %"),
limits = c(0,1))+
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"))
@ -162,7 +163,12 @@ ggsave(plot=f2_i, filename = "Figure2_i.jpg", device="jpg", width = 8, height =
path = "~/BAK_Projekt/Figures")
write.table(df_mm2, sep= ";", row.names = F,
file = "~/BAK_Projekt/Tabellen/df_mm.csv")
write.table(df_mi2, sep= ";", row.names = F,
file = "~/BAK_Projekt/Tabellen/df_mi.csv")
write.table(df_i2, sep= ";", row.names = F,
file = "~/BAK_Projekt/Tabellen/df_i.csv")
@ -180,5 +186,3 @@ ggsave(plot=f2_i, filename = "Figure2_i.jpg", device="jpg", width = 8, height =
# title = "Beispiel Kanton Graubünden (Bezirksebene)")