在同一 data.tables 上执行 bind_rows() 和 rbind() 之后，identical() = FALSE？

Question

警告：新手。我有几个 data.tables，每个都有数百万行，变量主要是日期和因素。我正在使用 rbindlist() 来组合它们 because。昨天，在将表格垂直分解成更小的部分（而不是当前的水平拼接）之后，我试图更好地理解 rbind（尤其是 fill = TRUE）并且还尝试了 bind_rows() 然后尝试验证结果相同但 identical() 返回 FALSE。

library(data.table)
library(dplyr)
DT1 <- data.table(a=1, b=2)
DT2 <- data.table(a=4, b=3)
DT_bindrows <- bind_rows(DT1,DT2)
DT_rbind <- rbind(DT1,DT2)
identical(DT_bindrows,DT_rbind)
 # [1] FALSE

目视检查 bind_rows() 和 rbind() 的结果表明它们确实相同。我读了 and this（从我改编示例的地方）。我的问题：(a) 我遗漏了什么，以及 (b) 如果我的列的编号、名称和顺序相同，我是否应该担心 identical() = FALSE？

Answer 1

identical 检查不相同的 attributes。使用 all.equal，可以选择不检查属性 (check.attributes)

all.equal(DT_bindrows, DT_rbind, check.attributes = FALSE)
#[1] TRUE

如果我们检查两个数据集的 str，就会变得清楚

str(DT_bindrows)
#Classes ‘data.table’ and 'data.frame': 2 obs. of  2 #variables:
# $ a: num  1 4
# $ b: num  2 3
str(DT_rbind)
#Classes ‘data.table’ and 'data.frame': 2 obs. of  2 #variables:
# $ a: num  1 4
# $ b: num  2 3
# - attr(*, ".internal.selfref")=<externalptr> # reference attribute

通过将属性分配给 NULL，identical returns TRUE

attr(DT_rbind, ".internal.selfref") <- NULL
identical(DT_bindrows, DT_rbind)
#[1] TRUE

在同一 data.tables 上执行 bind_rows() 和 rbind() 之后，identical() = FALSE？

After doing bind_rows() and rbind() on same data.tables , identical() = FALSE?

r

rbind

dplyr

data.table