Проблема с данными: addAwesomeMarkers требует lng, lat, но мои данные хранятся в векторе.Работать вокруг?

Question

Я работаю над картой с Leaflet в R. Мои данные хранятся в виде координат x, y, которые теперь преобразуются в значения lng, lat.

Набор данных: Dambrug2019 (мой собственный набор данных, чтобы избежать путаницы в следующем примере кода).

           Name Status      x       y
1       Point_1      0 482670 6217698

Transform:

Locations <- st_as_sf(Dambrug2019, coords=c("x", "y")) 
%>% st_set_crs(23032) %>% st_transform(4326)

Name Status                  geometry
1         Point_1     1 POINT (8.720061 56.10223)

При создании карты с одинаковыми маркерами для них все работает хорошо.

Map <- leaflet() %>% addTiles() %>% addMarkers(data=Locations, popup=Locations$Name)

Затем я хочу покрасить маркеры в зависимости от статуса.

#Color the markers depending on the status.
#Want 0=green, 1=red, 2=orange.

> Color_status <- function(Locations) {sapply(Locations$Status,
   function(Status) {if(Status==0){"green"} else if(Status==1)
     {"red"} else{"orange"} })}

> Status_Icons <- awesomeIcons(icon='circle', iconColor=
   'black', library='ion', markerColor=Color_status(Locations))

> leaflet(Locations) %>% addTiles() %>%
    addAwesomeMarkers(c(Locations$geometry), icon=icons, 
    label=~as.character(Name))

Error in validateCoords(lng, lat, funcName) : 
  addAwesomeMarkers requires numeric longitude values

Таким образом, похоже, что addAwesomeMarkers не могут обработать настройку моих точек. Есть ли простой / быстрый способ превратить точки в то, что функция может использовать?

Или вам известен альтернативный способ создания разноцветных маркеров, который бы работал с моими текущими данными?

Решение опробовано:

as.numeric(Locations$geometry)
Error: (list) object cannot be coerced to type 'double'

Результат печати (Locations $ gemometry):

> print(Locations$geometry)
Geometry set for 53 features 
geometry type:  POINT
dimension:      XY
bbox:           xmin: 8.269083 ymin: 54.89636 xmax: 15.13583 ymax: 56.99576
epsg (SRID):    4326
proj4string:    +proj=longlat +datum=WGS84 +no_defs
First 5 geometries:
POINT (8.720061 56.10223)
POINT (9.611723 56.67828)
POINT (8.633127 55.69979)
POINT (9.671523 56.99576)
POINT (15.13583 55.05837)

Большое спасибо за вашу помощь заранее. :)

Answer 1

Я не очень знаком с пакетами leaflet и sf, но попробуйте:

library(st)
library(leaflet)

lng = as.numeric(st_coordinates(Locations$geometry)[,1])
lat = as.numeric(st_coordinates(Locations$geometry)[,2])

leaflet(Locations) %>% addTiles() %>%
  addAwesomeMarkers(lng = lng, lat = lat, icon=icons, 
  label=~as.character(Name))