# NOT RUN {
NUTS1 <- esp_get_nuts(nuts_level = 1, moveCAN = TRUE)
library(ggplot2)
ggplot(NUTS1) +
geom_sf() +
labs(
title = "NUTS1: Displacing Canary Islands",
caption = giscoR::gisco_attributions()
)
NUTS1_alt <- esp_get_nuts(nuts_level = 1, moveCAN = c(15, 0))
ggplot(NUTS1_alt) +
geom_sf() +
labs(
title = "NUTS1: Displacing Canary Islands",
subtitle = "to the right",
caption = giscoR::gisco_attributions()
)
NUTS1_orig <- esp_get_nuts(nuts_level = 1, moveCAN = FALSE)
ggplot(NUTS1_orig) +
geom_sf() +
labs(
title = "NUTS1",
subtitle = "Canary Islands on the true location",
caption = giscoR::gisco_attributions()
)
AndOriental <-
esp_get_nuts(region = c("Almeria", "Granada", "Jaen", "Malaga"))
ggplot(AndOriental) +
geom_sf()
RandomRegions <- esp_get_nuts(region = c("ES1", "ES300", "ES51"))
ggplot(RandomRegions) +
geom_sf() +
labs(title = "Random Regions")
MixingCodes <- esp_get_nuts(region = c("ES4", "ES-PV", "Valencia"))
ggplot(MixingCodes) +
geom_sf() +
labs(title = "Mixing Codes")
# }
Run the code above in your browser using DataLab