Question

如何创建包含嵌套data.tables的data.table？

实施例

set.seed(7908)
dt <- data.table(x=1:5)[,list(y=letters[1:x],z=sample(1:100,x)),by=x]

dt
##     x y  z
##  1: 1 a 13
##  2: 2 a 27
##  3: 2 b 87
##  4: 3 a 85
##  5: 3 b 98
##  6: 3 c  1
##  7: 4 a 53
##  8: 4 b 81
##  9: 4 c 64
## 10: 4 d 45
## 11: 5 a 28
## 12: 5 b 26
## 13: 5 c 52
## 14: 5 d 55
## 15: 5 e 12

期望的输出

对于dt中x的每个唯一值，折叠行并创建一个data.table，其中列y和z包含在单个dt列中。结果应如下所示：

##    x        dt.yz
## 1: 1 <data.table>
## 2: 2 <data.table>
## 3: 3 <data.table>
## 4: 4 <data.table>
## 5: 5 <data.table>

在我的实际例子中，我有几个不同列的数据表，我想存储在一个元数据表中。

Answer 1

使用y和z作为列创建data.table，然后将其包装在列表中，以便它可以填充＆＃34;＃34;在一排。将其包装在另一个列表中，您可以在其中分配生成的列名称。使用by=x为x的每个唯一值执行此操作。

dt2 <- dt[, list(dt.yz=list(data.table(y, z))), by=x]
dt2
##    x        dt.yz
## 1: 1 <data.table>
## 2: 2 <data.table>
## 3: 3 <data.table>
## 4: 4 <data.table>
## 5: 5 <data.table>

正如Arun所指出的，使用.SD更短更快，可能更方便：

dt2 <- dt[, list(dt.yz=list(.SD)), by=x]
## dt.yz will include all columns not in the `by=`;
## Use `.SDcols=` to select specific columns

要获取data.table的值，稍后根据所需的x值对meta data.table（dt2）进行子集化，然后获取列表中的第一个元素（即嵌套的data.table） dt.yz专栏。

dt2[x==5,dt.yz[[1]]]
##    y  z
## 1: a 28
## 2: b 26
## 3: c 52
## 4: d 55
## 5: e 12

通过将行折叠为新的data.tables来创建嵌套的data.tables

实施例

期望的输出

1 个答案: