Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
library(cartography)
library(sf)
mtq <- st_read(system.file("gpkg/mtq.gpkg",
package="cartography"))
bks <- getBreaks(v = mtq$MED, nclass = 5,
method = "quantile")
cols <- carto.pal(pal1 = "turquoise.pal", n1 = 5)
choroLayer(x = mtq, var = "MED",
breaks = bks, col = cols,
legend.pos = NA)
legendChoro(pos = unlist(locator(1)),
breaks = bks, col = cols,
nodata = FALSE)
north(pos = unlist(locator(1)))
barscale(pos = unlist(locator(1)), size = 5)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.