r - 如何将列表添加到 R 中的数据框？

Question

我有如下 2 个表:

a = read.table(text=' a b
1 c
1 d
2 c
2 a
2 b
3 a
', head=T)



b = read.table(text=' a c
1 x i
2 y j 
3 z k
', head=T)

我希望结果是这样的:

1 x i c d
2 y j c a b
3 z k a

最初我想使用 tapply 将它们转换为列表(例如 aa = tapply(a[,2], a[,1], function(x) paste(x,collapse=",")))，然后将其追加回表 b，但我卡住了...

有什么建议吗？非常感谢。

Answer 1

一种方法:

mapply(FUN = c, 
       lapply(split(b, row.names(b)), function(x) as.character(unlist(x, use.names = FALSE))), 
       split(as.character(a$b), a$a), 
       SIMPLIFY = FALSE)
# $`1`
# [1] "x" "i" "c" "d"
# 
# $`2`
# [1] "y" "j" "c" "a" "b"
# 
# $`3`
# [1] "z" "k" "a"