r语言 - 与 sf 包一起使用时 data.table 的行为不正确

Question

data.table与

sf::st_union一起使用时会执行不正确的聚合，而dplyr似乎可以正确处理它。 有人可以解释为什么data.table会产生这个结果吗？

library(data.table)
library(sf)
library(dplyr)
nc <- st_read(system.file("shape/nc.shp",package="sf"))
nc_DT <- as.data.table(nc)
nc %>% group_by(SID74) %>% summarise(geom = st_union(geometry)) %>% nrow # prints 23 (correct answer)
nrow(nc_DT[,st_union(geometry),by=SID74])  # prints 83 (incorrect answer)

Answer 1

如果我们把它放在一个 list ，行数将是 23

res <- nc_DT[, .(geom = st_union(geometry)),by=SID74]
nrow(res)
#[1] 23

然后，您可以像这样轻松恢复几何列的属性：

res <- st_sf(res)
plot(res)