COMARCAS DE LA REGION DE MURCIA

Representadas usando la librería TMAP

Dedicado a mi compa Fuen

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

mapa <- read_shape("ESP_adm_shp/ESP_adm3.shp", as.sf = TRUE)
mapa <- mapa[mapa$ID_2==52,]

mapa$NAME_3<-as.character(mapa$NAME_3)
names(mapa)[9] <- "COMARCA"
mapa$COMARCA[2] <- "Alto Guadalentín"
mapa$COMARCA[3] <- "Bajo Guadalentín"
mapa$COMARCA[5] <- "Huerta de Murcia"
mapa$COMARCA[9] <- "Río Mula"

quint <- tm_shape(mapa) +
  tm_fill(col = "COMARCA",
          palette = viridis(n=5, direction = -1,option = "C"),
          fill.title = "Comarca",
          title = "Comarcas de la Región de Murcia")
# ttm()
tmap_mode(mode = "view")
quint