if (FALSE) {
library(ggplot2)
ggplot(taajama2019) +geom_sf(aes(fill = kr_name))+
labs(fill = "Kaupunkimaisuus")+
theme(legend.title = element_text(size = 6),legend.text = element_text(size=6),
legend.key.size = unit(10, "pt"),legend.key.width = unit(4,"pt"),
legend.key.height = unit(4,"pt"),
legend.position = c(0.22,0.52))
}
Run the code above in your browser using DataLab