Jak sprawnie tworzyć Pierścienie Linii z punktów?
Mam geom POINT w dwóch oddzielnych ramkach danych. To, co chcę zrobić, to połączyć punkty linią (później na mapie), dlatego chcę utworzyć Linestring dla każdej pary punktów z tych ramek danych. Zrobiłem to tak:
coordsCust <- table %>%
st_as_sf(coords = c("lonCust","latCust"), crs = 4326)
coordsApp <- table %>%
st_as_sf(coords = c("lonApp","latApp"), crs = 4326) %>%
st_geometry()
i Linestring:
lines <- st_sfc(mapply(function(a,b){
st_cast(st_union(a,b),"LINESTRING")},
coordsCust$geometry, coordsApp$geometry, SIMPLIFY=FALSE))
Ten kod działa, mogę utworzyć pierścienie liniowe dla każdej pary punktów, rząd po wierszu:
LINESTRING (14.035 51.65182, 14.33418 53.53346)
LINESTRING (20.42767 49.98073, 16.62978 52.31037)
LINESTRING (20.18762 50.03337, 16.62978 52.31037)
LINESTRING (19.04625 49.79234, 16.62978 52.31037)
LINESTRING (21.35808 50.92382, 16.62978 52.31037)
Problem w tym, że dla 30 000 wierszy to rozwiązanie działa bardzo wolno - około 21 sekund. Czy jest inny sposób tworzenia pierścieni liniowych z punktów? Coś, co działa znacznie szybciej? Szukałem rozwiązań w sieci, ale na próżno. Czytałem coś o konwersji sf do matrix i używaniu, pmap
ale nie mam pojęcia, jak to zaimplementować tutaj.
AKTUALIZACJA: jeśli chcę używać funkcji sfheaders :: sf_linestring, muszę połączyć geometrie z obu zestawów danych. Robię to tak:
df <- cbind(coordsCust,coordsApp)
a ostateczna ramka danych (pokazałem jej najważniejszą część) jest pokazana poniżej:

Niestety sf_linestring nie działa poprawnie w tej ramce danych. Muszę utworzyć linie między POINTami dla każdego wiersza osobno, jak pokazano na ekranie.
Odpowiedzi
Bez przykładowego zestawu danych trudno jest w pełni odpowiedzieć na Twoje pytanie. Ale jeśli możesz ustawić swoją ramkę data.frame w „długiej” formie, sfheaders
możesz to zrobić w mgnieniu oka
n <- 30000
df <- data.frame(
x = rnorm(n)
, y = rnorm(n)
)
df$id <- rep(1:(n/2), each = 2)
sfheaders::sf_linestring(
obj = df
, x = "x"
, y = "y"
, linestring_id = "id"
)
# Simple feature collection with 15000 features and 1 field
# geometry type: LINESTRING
# dimension: XY
# bbox: xmin: -4.297631 ymin: -4.118291 xmax: 3.782847 ymax: 4.053399
# CRS: NA
# First 10 features:
# id geometry
# 1 1 LINESTRING (0.2780517 0.243...
# 2 2 LINESTRING (0.4261505 2.503...
# 3 3 LINESTRING (0.8662821 -0.11...
# 4 4 LINESTRING (-0.5335952 -0.1...
# 5 5 LINESTRING (1.154309 -1.352...
# 6 6 LINESTRING (0.05512324 -0.4...
# 7 7 LINESTRING (1.945868 -0.744...
# 8 8 LINESTRING (0.0427066 -0.08...
# 9 9 LINESTRING (0.06738045 0.41...
# 10 10 LINESTRING (0.4128964 -0.04...