Skip to content
GitLab
Select Git revision
  • master default
  • map_production
  • v1.0.29.1
  • v1.0.29.0
  • v1.0.28.0
  • v1.0.27.0
  • v1.0.26.0
  • v1.0.25.0
  • v1.0.24.0
  • v1.0.23.0
  • v1.0.22.0
  • v1.0.21.0
  • v1.0.20.0
Find file BlameHistoryPermalink
map_so_ii.rmd 1.00 KiB

Can only work if data-common is a symbolic link

Data to be plotted

dataset = rio::import("data-common/table/so-ii/rex-2020.ods", which = 1) dataset = dataset[!is.na(dataset$latitude), ] dataset = sf::st_as_sf(dataset, coords = c("longitude", "latitude"), crs = "WGS84")

Data preparation

bg = rep(NA, nrow(dataset)) bg[dataset[["viticulture"]]] = "deeppink4" bg[dataset[["habitant"]]] = "cornflowerblue" col = "black" cex = 1.4 pch = 21

Legend definition

dataset_legend = list( title = "Enquêtes du REX 19 septembre 2020", legend = c("Agriculteurs", "Habitants membre ROI"), pch = 21, pt.bg = c("deeppink4", "cornflowerblue"), pt.cex = 1.4 )

map_so_ii(dataset, dataset_legend, path = "toto.pdf", bg = bg, cex = cex, col = col, pch = pch) map_so_ii(dataset, dataset_legend, path = "toto.png", bg = bg, cex = cex, col = col, pch = pch) map_so_ii(dataset, dataset_legend, path = "toto.pdf", bg = bg, pch = 22) map_so_ii(dataset, dataset_legend, path = "toto.pdf", bg = bg, pch = 22, theme = "gaspar")