来自 OpenStreetMap 地图的 autoplot() 被 geom_point() 层掩盖

Question

我正在尝试在开放的街道地图图块上重叠点（来自数据框 df）。带点的图层虽然遮盖了 OpenStreetMap 地图图块

library(OpenStreetMap)
library(tidyverse)

map <- openmap(c(lat = 46.2037+ 0.01, lon = 6.1439 - 0.01), c(lat = 46.2037 - 
    0.005, lon = 6.1439 + 0.01), type = "osm")

mapLatLon <- openproj(map)

df <- data.frame("long" = c(6.08, 6.14),
                 "lat" = c(46.18, 46.203))

autoplot(mapLatLon) +
  geom_point(data= df, aes(x = long, y = lat))

带有 geom_point 的图层覆盖了开放的街道地图图块。

Answer 1

我只需要将投影转换为 WGS84，以便它们与我的数据处于同一投影中。

在绘图之前，我必须运行代码：

 map.latlon <- openproj(map, 
                      projection = "+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs")

来自 OpenStreetMap 地图的 autoplot() 被 geom_point() 层掩盖

autoplot() from OpenStreetMap map masked by geom_point() layer

r

openstreetmap

ggplot2