R data.table 到行列表；更好的方法？

Question

我想将 R data.table 转换为行列表（每一行都由一个列表表示）。到目前为止，我已经找到了两种方法：

library(data.table)

x.dt = data.table(x = seq(1, 10), y = c("a", "b", "c", "d", "e", "f", "g", "h", "i", "j"), key="x")

# Using lapply & split
x.list.1 = lapply(split(x.dt, rownames(x.dt)), as.list)

# Using Lapply
x.list.2 = lapply(as.list(1:nrow(x.dt)), function(row) as.list(x.dt[row[1],]))

在我看来，它们都有些笨拙。有没有更好（更简洁）的方法？

亲切的问候， 赫尔曼

Answer 1

使用按行应用：

x.list.3 <- apply(x.dt,1,as.list)

Answer 2

我不知道这是否不那么笨重，但这很有效：

as.list(as.data.table(t(x.dt)))

您使用t() 转置data.table，然后再次将其声明为data.table，将其变为list。

输出：

$V1
[1] " 1" "a" 

$V2
[1] " 2" "b" 

$V3
[1] " 3" "c" 

$V4
[1] " 4" "d" 

$V5
[1] " 5" "e" 

$V6
[1] " 6" "f" 

$V7
[1] " 7" "g" 

$V8
[1] " 8" "h" 

$V9
[1] " 9" "i" 

$V10
[1] "10" "j"

正如@akrun 在 cmets 中指出的，这里的输出与您的示例不同，但它仍然是列表中的每一行，因此您可能会发现更好或更糟。

编辑 正如@David Arenburg 在 cmets 中指出的那样，

as.list(unlist(t(x.dt)))

提供与问题中的两个示例相同的输出。