r - 在谷歌静态 map 上离线绘制 map 坐标

Question

历史:从静态谷歌地图png中提取栅格数据，通过ggimage加载到R设备上.

library (png)
library (ggmap)

rasterArray <- readPNG ("My.png")

x = c (40.702147,40.718217,40.711614)
y = c (-74.012318,-74.015794,-73.998284)

myData <- data.frame (x, y)

print (ggimage (rasterArray, fullpage = TRUE, coord_equal = FALSE) 
    + geom_point (aes (x = x, y = y), data = myData, colour = I("green"), 
      size = I(5), fill = NA))

我确实跑了 dput在 rasterArray但输出为 20 MB，无法在此处发布。
顺便说一句， this is the URL of that static map:

问题:要在包含 map 的 R 设备上以像素为单位绘制“GPS 坐标”，我需要 scale data.frame ?

我看到了这个页面: http://www-personal.umich.edu/~varel/rdatasets/Langren1644.html
我需要按照他们在此处显示的方式进行缩放吗？

如果是，那么除了 scale 的手册页之外还有什么？我需要了解功能才能完成这项工作？

我在错误的树上吠叫吗？

Answer 1

我认为您的错误如下:

试图在图像上绘制地理数据，该图像不知道 map 坐标

可能在数据框中转置您的纬度和经度

这是你应该如何做的，分两步:

使用 get_map() 获取 map 并使用 save() 将其保存到磁盘

用 ggmap() 绘制数据

首先，获取 map 。

library (ggmap)


# Read map from google maps and save data to file

mapImageData <- get_googlemap(
  c(lon=-74.0087986666667, lat=40.7106593333333), 
  zoom=15
)
save(mapImageData, file="savedMap.rda")

然后，在一个新 session 中:

# Start a new session (well, clear the workspace, to be honest)

rm(list=ls())

# Load the saved file

load(file="savedMap.rda")

# Set up some data

myData <- data.frame(
    lat = c (40.702147, 40.718217, 40.711614),
    lon = c (-74.012318, -74.015794, -73.998284)
)


# Plot

ggmap(mapImageData) +
    geom_point(aes(x=lon, y=lat), data=myData, colour="red", size=5)