来自由geom_point（）图层掩盖的OpenStreetMap地图的autoplot（）

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")