# NOT RUN {
library(sf)
# Random Provinces
Random <-
esp_get_prov(prov = c("Zamora",
"Palencia",
"ES-GR",
"ES521",
"01"))
plot(st_geometry(Random), col = hcl.colors(6))
# All Provinces of a Zone plus an addition
Mix <-
esp_get_prov(prov = c("Noroeste",
"Castilla y Leon", "La Rioja"),
resolution = "20")
plot(
Mix[, "nuts1.code"],
pal = hcl.colors(3),
key.pos = NULL,
main = NULL,
border = "white"
)
# }
Run the code above in your browser using DataLab