วิธีการรวมวัตถุ sfc จากแพ็คเกจ R


12

เมื่อใช้แพ็คเกจ R sfจะรวมsfcวัตถุได้อย่างไร ตัวอย่างเช่นให้รหัสต่อไปนี้หนึ่งจะสร้างsfcวัตถุเดียวsfc12ที่มีรูปทรงเรขาคณิตจากทั้งสองsfc1และsfc2? ( length(sfc12)ควรเป็น 2)

library(sf)
pt1 = st_point(c(0,1))
pt2 = st_point(c(1,1))
sfc1 = st_sfc(pt1) # An sfc object
sfc2 = st_sfc(pt2) # Another sfc object
# sfc12 = ?

วิธีการบางอย่างที่ไม่ทำงาน:

sf_sfc(sfc1, sfc2) 
# Error in vapply(lst, class, rep("", 3)) : values must be length 3,
# but FUN(X[[1]]) result is length 2

sfc1 + sfc2 # Seems to add the points coordinate-wise.
# Geometry set for 1 feature 
# geometry type:  POINT
# dimension:      XY
# bbox:           xmin: 1 ymin: 2 xmax: 1 ymax: 2
# epsg (SRID):    NA
# proj4string:    NA
# POINT(1 2)

rbind(sfc1, sfc2)
# [,1]     
# sfc1 Numeric,2
# sfc2 Numeric,2

คำตอบ:


11

เพียงใช้cเหมือนเวกเตอร์ของมัน:

> (sfc12 = c(sfc1, sfc2))
Geometry set for 2 features 
geometry type:  POINT
dimension:      XY
bbox:           xmin: 0 ymin: 1 xmax: 1 ymax: 1
epsg (SRID):    NA
proj4string:    NA
POINT(0 1)
POINT(1 1)

และความยาวคือ 2:

> length(sfc12)
[1] 2

1
และคุณจะรวมวัตถุ sfc มากมายเช่นจากรายการวัตถุ sfc อย่างไร
Bernd V.

คุณแก้มันเบอร์เนสไหม ฉันยังไม่ได้หาวิธีที่สะดวกในการทำเช่นนั้น
Marco

@Marco หากนี่เป็นปัญหาสำหรับคุณและ Bernd ให้เริ่มคำถามใหม่ด้วยตัวอย่างที่ทำซ้ำได้
Spacedman

6
@Marco do.call(c, list(sfc1, sfc2))ทำงานให้ฉัน
johannes

1
รวมรายการของsfcวัตถุโดยใช้Reduce(c, sfcs)หรือpurrr::reduce(sfcs , c)
Luke1018

โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.