通过ggmap显示Safeway的位置

Question

我想用以下坐标显示位于俄勒冈州锡赛德的Safeway商店的位置： （-123.9215,45.99102）。 它显示了街道的中间！我已经展示了Google地球图片，这是正确的。有一点区别。

seaside <- get_map(location = c(lon = -123.9215, lat =45.99102), maptype = 
c("satellite") ,zoom = 16)
SeasideMap <- ggmap(seaside, extent = "device", legend = "topleft")

d <- data.frame(lon=c(-123.9215),lat=c(45.99102))

p <- SeasideMap + geom_point(data=d,  aes(x=lon, y=lat), color="red", 
size=30, alpha=0.5)

Answer 1

你确定你的坐标是对的吗？

当我这样做时

geocode("Safeway, Seaside, Oregon") 

我得到lon = -123.9201，lat = 45.99097

这看起来像是在一幢大楼顶上，我假设是Safeway。

Answer 2

确认别人说的话，你的坐标是不正确的＆＃39 ;;他们实际上是停车场的街道入口。

在这个例子中，我在您给出的坐标处绘制标记。那我就是在搜索＆＃39;在＆＃39; Safeway＆＃39;的搜索框中，您可以看到它已经绘制了购物袋＆＃39;商店上的图标。

library(googleway)

map_key <- "map_api_key"

d <- data.frame(lon=c(-123.9215),lat=c(45.99102))

google_map(key = map_key, search_box = T) %>%
    add_markers(data = d)

在此图像中，您可以看到停车场入口处是标记

的位置

然后通过对商店进行地理编码来证明这一点

res <- google_geocode(address = "Safeway, Seaside, Oregon", key = "api_key")

res$results$geometry
  location.lat location.lng location_type viewport.northeast.lat viewport.northeast.lng viewport.southwest.lat
1     45.99097    -123.9201   APPROXIMATE               45.99232              -123.9188               45.98962
  viewport.southwest.lng
1              -123.9215