Representadas usando la librería TMAP

Datos sobre las secciones censales obtenidos del INE. Son datos referidos al año 2011.

library(tmap)
library(tmaptools)
library(viridis)

mapa <- read_shape("secciones_censales/SECC_CPV_E_20111101_01_R_INE.shp", as.sf = TRUE)
mapared <- mapa[mapa$NMUN=="Murcia",]
mapared$Shape_area <- mapared$Shape_area/1000000
names(mapared)[20] <- "Superficie"

quint <- tm_shape(mapared) + tm_borders() +
  tm_fill(col = "Superficie",alpha=0.5,
          palette = viridis(n=5, direction = -1,option = "C"),
          fill.title = "Comarca",
          title = "Sup. (km2) de las secc. censales")
tmap_mode(mode = "view")
quint