# NOT RUN {
library(sf)
sf_world <- gisco_get_countries()
plot(st_geometry(sf_world), col = "seagreen2")
title(sub = gisco_attributions(), line = 1)
sf_africa <- gisco_get_countries(region = 'Africa')
plot(st_geometry(sf_africa),
col = c("springgreen4", "darkgoldenrod1", "red2"))
title(sub = gisco_attributions(), line = 1)
sf_benelux <-
gisco_get_countries(country = c('Belgium', 'Netherlands', 'Luxembourg'))
plot(st_geometry(sf_benelux),
col = c("grey10", "orange", "deepskyblue2"))
title(sub = gisco_attributions(), line = 1)
# }
Run the code above in your browser using DataLab