R：删除geom_polygon ggmap中的多余行

Question

我有产生这张地图的代码：

library(ggmap)
library(mapdata)

counties <- map_data("county")
iowa_counties <- subset(counties, region=="iowa")
sq_map2 <- get_map(location = c(-92.55191,42.89219),  maptype = "satellite", source = "google", zoom = 9)
ggmap(sq_map2) + 
scale_y_continuous(limits=c(42.51118, 43.26184), expand=c(0,0)) + 
scale_x_continuous(limits=c(-93.0735, -92.03318), expand=c(0,0)) +
geom_polygon(data = iowa_counties, aes(x=long, y=lat, group=group), fill = NA, color = "white")

如您所见，左上角还有一个三角形。 我该如何摆脱呢？

Answer 1

一种非常简单的方法是减小y限制的最大值以删除该上限并防止三角形的构造。 只需将scale_y_continuous的值从43.26184为43.25184就可以了：

library(ggmap)
library(mapdata)

counties <- map_data("county")
iowa_counties <- subset(counties, region=="iowa")
sq_map2 <- get_map(location = c(-92.55191,42.89219),  maptype = "satellite", source = "google", zoom = 9)
ggmap(sq_map2) + 
scale_y_continuous(limits=c(42.51118, 43.26184), expand=c(0,0)) + 
scale_x_continuous(limits=c(-93.0735, -92.03318), expand=c(0,0)) +
geom_polygon(data = iowa_counties, aes(x=long, y=lat, group=group), fill = NA, color = "white")

当然，您也可以过滤掉iowa_counties某个纬度以上的点。