根据地址或 xy 坐标创建地图 - 转换为纬度和经度?

Creating a map based on address or xy coordinates - convert to lat and long?

我有一个可能非常简单的问题(我是 R 的新手),但搜索了一段时间后我没有找到我要找的东西。

我需要在 R 中创建地图。最好使用 Leaflet 包,但我绝对愿意接受其他建议。 我的数据是导致问题的原因。我有所有点的地址和 x y 坐标,但大多数地图制作包都需要纬度和经度数据。

有什么方法可以很容易地转换地址或 x y 坐标吗?

我读到地理编码功能应该这样做,但是 Google 需要 API 才能为此工作,我必须承认我当时迷路了。

数据包含大约 50 个点,因此如果有一种方法可以大量转换为纬度和经度,那就太好了。

非常感谢您。

x,y 坐标示例

Name     x       y
Point_1  556305  6306381

是这样的吗?

使用以下方法查找 crs:https://epsg.io/?q=denmark

示例数据

df <- data.frame( city = "Trinbak", lon = 556305, lat = 6306381 )

代码

library(sf)
library(leaflet)

df.sf <- st_as_sf( df, coords = c("lon", "lat") ) %>%
  st_set_crs( 2198 ) %>%   #set coordinate system used
  st_transform( 4326 )     #transform coordinates to WGS84 coordinates

leaflet() %>% addTiles() %>% addMarkers( data = df.sf )

输出

更新

也许

df.sf <- st_as_sf( df, 
                   coords = c("lon", "lat") ) %>%
  st_set_crs( 23032 ) %>%
  st_transform( 4326 )

更准确?