uRos_countries.csv

uros_countries.png

uRos_map.R

library(dplyr)
library(tmap)
library(sf)

world <- st_read("https://cartomap.github.io/world/wgs84/countries.geojson") %>% 
  st_transform("+proj=robin") %>% 
  mutate(name_en = as.character(name_en))

world$name_en[world$id == "NL"] <- "Netherlands"

uros_countries <- read.csv("uRos_countries.csv", stringsAsFactors = FALSE) %>% 
  mutate( countries = sub("Malayesia", "Malaysia", countries)
        , countries = sub("UK", "United Kingdom", countries)
        , countries = sub("USA", "United states of america", countries)
        )

world$uros <- world$name_en %in% uros_countries$countries

png("uros_countries.png", width=1024, height = 660)

par(mai = c(0,0,0,0))
tm_shape(world) + tm_fill("#eeeeee", frame=F) +
  tm_borders("white", lwd=0.5) + 
  tm_shape(world[world$uros,]) + tm_fill("#00a1cd") + tm_layout(frame=F) + 
  tm_borders("white", lwd=0.5)
  
dev.off()