R 如何将边境国家添加到国家空间多边形 map

Question

我正在尝试使用带 R 的空间多边形制作一些彩色 map 。我从 gadm.org 网站下载了 shapefile 并按照我想要的方式对区域进行了着色 http://bl.ocks.org/prabhasp/raw/5030005/ .但是，我认为如果我能够将与越南共享边界的部分国家也放在 map 上， map 会看起来更好，就像这张维基百科 map 一样

我不知道从什么开始，有人可以给我提示吗？我应该下载区域 map 然后加入边境国家的区域并在越南的省级工作吗？或者我可以在国家一级上绘制我的越南 map 吗？

Answer 1

如果这是一次性的，我会倾向于这样做。

library(raster)
library(ggplot2)
vietnam  <- getData("GADM",country="Vietnam",level=2)
china    <- getData("GADM",country="China",level=0)
laos     <- getData("GADM",country="Laos",level=0)
cambodia <- getData("GADM",country="Cambodia",level=0)
thailand <- getData("GADM",country="Thailand",level=0)

ggplot(vietnam,aes(x=long,y=lat,group=group))+
  geom_polygon(aes(fill=id),color="grey30")+
  geom_polygon(data=china,fill="grey60",color="grey80")+
  geom_polygon(data=laos,fill="grey60",color="grey80")+
  geom_polygon(data=cambodia,fill="grey60",color="grey80")+
  geom_polygon(data=thailand,fill="grey60",color="grey80")+
  coord_map(xlim=c(-1,1)+bbox(vietnam)["x",],ylim=c(-1,1)+bbox(vietnam)["y",])+
  scale_fill_discrete(guide="none")+
  theme_bw()+theme(panel.grid=element_blank())

标记边界国家比较棘手，因为您必须知道在哪里放置标签，而且您不能使用国家质心，因为它们不在 map 上。我会仔细观察它，并使用 annotate(geom="text",...)。