如何从ggmap中去除边距

Question

我试图使用ggmap包绘制一张没有任何边距、轴、标签等的地图。我已经成功移除了标签和轴，但不知道如何移除边距。非常感谢您的帮助！

library("ggmap")
amap <- get_map(location = c(lon = -95.3632715, lat = 29.7632836), maptype = c("terrain"))
basemap <- ggmap(amap)
plot(basemap)

- jinlong

Answer 1

请尝试使用extent = 'device'。有关其他选项，请参见?ggmap::ggmap。

library("ggmap")
amap <- get_map(location = c(lon = -95.3632715, lat = 29.7632836), maptype = c("terrain"))
basemap <- ggmap(amap, extent = "device")
basemap

- Sandy Muspratt

---

谢谢，Sandy！那差不多解决了我的问题，除了地图上方和下方还有空白。我正在寻找一种解决方案来消除地图周围的白色空间。 - jinlong

@jinlong，请确保设备与地图具有相同的比例。在这种情况下，地图是正方形的；因此请确保设备也是正方形的。在Windows机器上，windows(6,6); basemap应该可以解决问题。 - Sandy Muspratt

Answer 2

所有以前的解决方案都不能完全回答这个问题，仍然留下一些空白。

我最终得到了：

ggmap(yourmap) +
  theme(axis.line = element_blank(),
        axis.text = element_blank(),
        axis.ticks = element_blank(),
        plot.margin = unit(c(0, 0, -1, -1), 'lines')) +
  xlab('') +
  ylab('')

之前：

之后：

- MS Berends

Answer 3

library("ggmap")
amap <- get_map(location = c(lon = -95.3632715, lat = 29.7632836), 
    maptype = c("terrain"))
basemap <- ggmap(amap) + 
theme(axis.line = element_line(color = NA)) + 
xlab("") + ylab("")
basemap 

- Maiasaura