# NOT RUN {
library(sf)
nuts <- gisco_nuts
italy <- subset(nuts, CNTR_CODE == "IT" & LEVL_CODE == 3)
plot(st_geometry(italy), col = c("springgreen4", "ivory", "red2"))
title(
sub = gisco_attributions(copyright = FALSE),
cex.sub = 0.7,
font.sub = 3
)
# }
Run the code above in your browser using DataLab