R 使用snapbox将地图盒图像添加到ggplot：如何协调坐标系

我正在尝试使用 包裹我可以得到背景图像，我可以映射我的数据，但两者结合不起作用。不同的投影/坐标参考系统似乎存在问题，但我未能协调它们。有什么帮助吗？非常感谢

#遥控器：：安装github（“anthonynorth/snapbox”）
图书馆（sf）
#>链接到GEOS 3.8.0、GDAL 3.0.4、项目6.3.1
图书馆（GG2）
库（snapbox）
##获取背景图像---------------------------------------------------
my_xmin基准[“1984年世界大地测量系统”，
#>椭球体[“WGS 84”，6378137298.257223563，
#>长度单位[“米”，1]]，
#>PRIMEM[“格林威治”，0，
#>角度单位[“度”，0.0174532925199433]，
#>CS[椭球体，2]，
#>轴[“大地纬度（Lat）”，北，
#>订单[1]，
#>角度单位[“度”，0.0174532925199433]，
#>轴[“大地经度（Lon）”，东，
#>订单[2]，
#>角度单位[“度”，0.0174532925199433]，
#>用法[
#>作用域[“未知”]，
#>区域[“世界”]，
#>BBOX[-90，-180,90180]]，
#>ID[“EPSG”，4326]]
#工作正常，但请参阅警告
ggplot（）+
图层映射框（背景图像、，
map_style=mapbox_galley_pencil（），
mapbox\u api\u access\u token=Sys.getenv（“mapbox\u access\u token”），
比例=0.5
)
#>showSRID中的警告（uprojargs，format=“PROJ”，multiline=“NO”，preference\u PROJ
#>=首选项目）：CRS定义中丢弃的ellps WGS 84:+proj=merc+a=6378137
#>+b=6378137+lat_ts=0+lon_0=0+x_0=0+y_0=0+k=1+units=m+nadgrids=@null
#>+wktext+no_defs+type=crs
#>showSRID中的警告（uprojargs，format=“PROJ”，multiline=“NO”，preference\u PROJ=
#>首选项目：CRS定义中废弃的基准世界大地测量系统1984
#>showSRID中的警告（uprojargs，format=“PROJ”，multiline=“NO”，preference\u PROJ
#>=首选项目）：CRS定义中丢弃的ellps WGS 84:+proj=merc+a=6378137
#>+b=6378137+lat_ts=0+lon_0=0+x_0=0+y_0=0+k=1+units=m+nadgrids=@null
#>+wktext+no_defs+type=crs
#>showSRID中的警告（uprojargs，format=“PROJ”，multiline=“NO”，preference\u PROJ=
#>首选项目：CRS定义中废弃的基准世界大地测量系统1984

#添加数据----------------------------------------------------------------
df_箭头