library(dplyr)
library(sf)
data("popIT")
popIT <- popIT
coords <- loadCoordIT(unit = "provincia", year = '2019')
cr <- left_join(coords, popIT, by = c( "provincia" = "ID"))
###############
# Statics #
###############
mapping(cr)
# \donttest{
mapping(cr, var = "maschi")
nc = st_read(system.file("shape/nc.shp", package="sf"))
class(nc)
mapping(nc)
mapping(nc, var = "AREA", options = mapping.options(legend.position = c("left", "bottom")))
###############
# Interactive #
###############
mapping(cr, type = "interactive")
mapping(cr, var = "maschi", type = "interactive")
nc = st_read(system.file("shape/nc.shp", package="sf"))
class(nc)
mapping(nc, type = "interactive")
mapping(nc, var = "AREA", type = "interactive")
# }
Run the code above in your browser using DataLab