删除ggplot2 geom_polygon中的连接线

Question

我通过对从www.gadm.org下载的shapefile进行子集化来制作下面的地图：

load(url('http://gadm.org/data/rda/GBR_adm0.RData'))
library(ggplot2)
ukMapFort <- fortify(gadm)
ukMapFortSub <- subset(ukMapFort, lat > 55.575 & lat < 55.739 & long > -1.929 & long < -1.7)
ggplot() + geom_polygon(data=data.frame(ukMapFortSub), aes(long, lat, group=id), fill=NA, color="black")

如何删除两条红线？注意我已经使用Photoshop将线条着色为红色 - 这些线条是由R代码生成的，但是没有用R代码涂成红色。

Answer 1

如果您只需绘制边框，则可以使用geom_path()和group列group=。在这种情况下，您还必须添加coord_map()以保持x轴和y轴之间的正确纵横比。

ggplot(ukMapFortSub,aes(long, lat, group=group))+
  geom_path(color="black")+coord_map()