R data.table:如何从tibble到data.table再到tibble？

Question

我主要使用来自tidyverse的tibble中的表，但是对于一些步骤，我使用data.table包。我想看看将data.table转换回tibble的最好方法是什么？

我知道data.table有一些巧妙的函数setDT和setDF函数，它们通过引用将data.frame转换为data.table (反之亦然)，即不复制。

但如果我想改回泰伯呢？我是否使用as_tibble在由setDT()生成的data.frame上复制数据？是否有一种聪明的方法来使用这个，也许使用来自data.table的data.table

library(data.table)
library(tidyverse)

iris_tib <- as_tibble(iris)

## some data.table operation
setDT(iris_tib)
setkey(iris_tib, Species)
iris_tib[, Sepal.Length.Mean := mean(Sepal.Length), by = Species]



## How to convert back to tibble efficiently?
setDF(iris_tib)
iris_tib_back <-  as_tibble(iris_tib)

## it looks like we were able to update by reference? Only rownames were (shallow) copied?
changes(iris_tib, iris_tib_back)

Answer 1

正如@Frank提到的，这一点在一篇这里文章中得到了讨论。一种可能性是使用setattr()函数，它通过引用设置属性。准确地说：

setattr(x, "class", c("tbl", "tbl_df", "data.frame"))

如果对原来的课程有疑问的话：

old_class <- class(iris_tib)
setDT(iris_tib)
.... # bunch of data.table operatios
setDF(iris_tib)
setattr(iris_tib, "class", old_class)

这似乎完成了必要的工作，将其转换为tibble。