Podkreślenie konkretnych krajów (Etiopia, Uganda, Kenia) za pomocą biblioteki rworldmap i funkcji mapy

Question

Używam tego kodu, korzystając z pakietu mapdata, ale pokazują one tylko trzy wybrane przeze mnie kraje i nie widzę reszty granice mapy świata.

map("world", 
    regions=c("ethiopia", "kenya", "uganda"), 
    exact = TRUE, 
    fill=TRUE, 
    col=c(1,2,3)) 

Jak wyświetlić pozostałe granice mapy na świecie, podświetlając trzy wybrane kraje?

Answer 1

Oto przykład bez rworldmap:

require(mapdata) 

# get the names 
cc <- map('world', names = TRUE, plot = FALSE) 
take <- unlist(sapply(c("ethiopia", "kenya", "uganda"), grep, tolower(cc), value = TRUE)) 

# world 
map() 
# add the selected countries in grey to the plot 
map('world', regions=take, fill=TRUE, col='grey50', add = TRUE)