# NOT RUN {
# }
# NOT RUN {
lp <- get_eurostat_geospatial(output_class = "sf", resolution = "60", nuts_level = "all")
lp %>% select(NUTS_ID) %>% plot()
lp <- get_eurostat_geospatial(output_class = "spdf", resolution = "60", nuts_level = "all")
spplot(lp, "STAT_LEVL_")
# or
lp <- get_eurostat_geospatial(output_class = "df", resolution = "60", nuts_level = "all")
ggplot(lp, aes(x=long,y=lat,group=group,fill=STAT_LEVL_),color="white") + geom_polygon()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab