如何从ggmap中删除边距

Question

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

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

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

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

<强>之前：

<强>后：

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