r - 访问数据表中的列表成员

Question

我有以下数据表，其中某一列中有一项列表对象:

require(data.table)
col <- c(list(c("A", "B", "C", "D", "E")),
         list(c("A", "B", "E", "F")),
         list(c("B", "C", "D", "E")))
dt <-  data.table(a = c("Jon", "Josh", "Laura"), b = col, c = c(1, 2, 3))

我想要做的是将一列plainstring添加到dt，其中包含“b”列中的字符串。我试过了

dt[, plainstring := b[.I][[1]]]

但这不起作用(我猜是对.I的误解)。有什么想法吗？

期望的输出是

> dt
       a         b c plainstring
1:   Jon A,B,C,D,E 1   A,B,C,D,E
2:  Josh   A,B,E,F 2     A,B,E,F
3: Laura   B,C,D,E 3     B,C,D,E

其中对于每一行 i，dt$plainstring[i] 是一个字符向量，等于 unlist(dt$b[i]).

Answer 1

从您的更新来看，您似乎想要这样的东西:

dt[, plainstring := vapply(b, toString, "")][]
#        a         b c   plainstring
# 1:   Jon A,B,C,D,E 1 A, B, C, D, E
# 2:  Josh   A,B,E,F 2    A, B, E, F
# 3: Laura   B,C,D,E 3    B, C, D, E

将 b 列减少到长度为三的字符向量。

dt[, plainstring]
# [1] "A, B, C, D, E" "A, B, E, F"    "B, C, D, E"   

如果您希望不带空格，那么在上面的 vapply() 调用中使用 paste() 会更合适。

vapply(b, paste, "", collapse = ",")