worldmapr.R

library(rnaturalearth)
library(ggplot2)
library(sf)

country_poly <- ne_countries(scale = 50, returnclass = "sf")


res <- st_read("http://ihp-wins.unesco.org/geoserver/wfs?srsName=EPSG%3A4326&outputFormat=json&service=WFS&srs=EPSG%3A4326&request=GetFeature&typename=geonode%3Aworld_rivers&version=1.0.0&access_token=3165106ba28e11e997a3005056062634") %>% 




ggplot() +
  geom_sf(data = country_poly, aes(fill= mapcolor7), alpha= 0.5) +
  geom_sf_text(data = country_poly, aes(label = name_en)) +
  geom_sf(data = res, colour = "blue") +
  scale_fill_viridis_c() +
  theme_void()