# NOT RUN {
library(sf)
nuts <- esp_nuts.sf
nuts3 <- subset(nuts, LEVL_CODE == 3)
unique(nuts3$MOUNT_TYPE)
plot(
nuts3[, "URBN_TYPE"],
pal = hcl.colors(3, palette = "Viridis"),
main = "Urban type - NUTS3 levels of Spain",
key.pos = NULL
)
# }
Run the code above in your browser using DataLab