如何从ggmap中删除边距

Posted 2023-03-06

【中文标题】如何从ggmap中删除边距

【英文标题】：How to remove the margins from a ggmap

【发布时间】：2013-12-23 07:03:44

【问题描述】：

我试图使用没有任何边距、轴、标签等的 ggmap 包绘制地图。我能够删除标签和轴，但不知道必须在这里删除边距。任何帮助将不胜感激..！

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

【参考方案1】：

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 

【参考方案2】：

试试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

【讨论】：

谢谢，桑迪！这几乎解决了我的问题，除了地图上方和下方仍有空间。我正在寻找一种解决方案来消除地图周围的空白。

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

【参考方案3】：

所有以前的解决方案都没有准确回答问题，仍然留下一些空白。

我最终得到：

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('')

之前：

之后：