R 谷歌地图，添加更长的路径答案

【问题标题】：R google maps, adding longer pathsR 谷歌地图，添加更长的路径
【发布时间】：2012-05-23 12:59:13
【问题描述】：

我刚开始玩 RgoogleMaps http://cran.r-project.org/web/packages/RgoogleMaps/RgoogleMaps.pdf，它看起来真的很酷，但 GetMaps() 路径选项似乎有一个限制。看起来（我可能错了）一个 url 被发送到谷歌静态地图 api 并下载了一个 png 文件（或其他东西），所以 url 限制限制了你可以在“map.png”中拥有的路径的大小”。但我想知道在创建之后或在中间处理步骤中编辑 png 是否很容易以获得长路径？有人知道如何在 r 中执行此操作吗？该包似乎提供了一个将 XY 坐标映射到 png 栅格的函数。如果你还没有注意到我远不是 png 文件方面的专家，所以如果我缺少一些简单的东西，请客气。

【问题讨论】：

标签： r google-maps-api-3 png ggmap rgooglemaps

【解决方案1】：

更新 opts 已弃用；请改用theme。

如果您准备在ggplot2 中工作，ggmap 包可以轻松地向地图添加图层。下面的get_map() 函数获取巴布亚新几内亚莫尔兹比港国家研究所的卫星谷歌地图。 ggmap() 函数绘制地图，然后添加文本注释、线段注释和标题。但是可以像添加到常规 ggplot 图中一样添加其他几何图形。 gglocator() 函数的工作方式与基图中的locator() 类似。 lon 和lat 是地图中心的坐标，但位置向量可以给出地图的边界。我使用zoom 来获得正确的分辨率。

library(ggplot2)
library(ggmap)
library(grid)

nri = get_map(location = c(lon = 147.165, lat = -9.410), zoom = 18, maptype = 'satellite')

(NRImap = ggmap(nri, extent = "device") + 
  annotate('segment', x = 147.1656, xend = 147.1649, y = -9.41025, yend = -9.4096,
    colour = 'white', arrow = arrow(length = unit(0.25,"cm")), size = 1) +
  annotate('text', x = 147.1656, y = -9.41031, label = 'Conference Centre',
    colour = 'white', size = 6) +
  theme(plot.margin = unit(c(1.5, 0, 0, 0), "lines")) + 
  ggtitle                       ("National Research Institute") +
  theme(plot.title = element_text(colour = "Blue", vjust = 2, size = 20)))

# gglocator()

【讨论】：