r - 从 Tibble 创建嵌套列表

Question

我想从 tibble 创建一个嵌套列表，以便更有效地存储数据，并且更容易通过子集提取信息。

我有一个 3 列的小标题，如下所示:

library(dplyr)

df <- tribble(
~a,~b,~c,
"a1", "b1", 1,
"a1", "b1", 2,
"a1", "b2", 1, 
"a1", "b2", 2,
)

我想将其转换为与此相同的列表:

list(a1 = list(b1 = 1:2, b2 = 1:2))

有人知道我该怎么做吗？

谢谢

Answer 1

拆分两次，即

lapply(split(df,df$a), function(x) split(x$c,x$b))

$a1
$a1$b1
[1] 1 2

$a1$b2
[1] 1 2