如何在正投影地图上为各个国家/地区着色？

Question

因此，我需要在地球世界地图上以红色突出显示国家。下面的代码创建了以非洲为中心的蓝色背景正投影图。

如何突出显示各个国家或为其着色？如果更容易将彩色的shapefile重叠起来，那么每个国家的shapefile都分别或一起存在。

如果我可以在地图上添加刻度，那也很好。

library(maps)
library(mapdata)

o <- c(-0,20,0) 

xy <- map("world",proj="orthographic", orientation=o, bg="white")
xy <- na.omit(data.frame(do.call(cbind, xy[c("x","y")])))

polygon(max(xy$x)*sin(seq(0,2*pi,length.out=100)),max(xy$y)*cos(seq(0,2*pi,length.out=100)),
        col="#79b7dc", border=rgb(1,1,1,0.5), lwd=2)

map("world",proj="orthographic", orientation=o,
    fill=TRUE, col="#a9a9a9", add=TRUE)