相关疑难解决方法(0)

如何在列中按组聚合数据group并在列中折叠文本text？

样本数据:

df <- read.table(header=T, text="
group text
a a1
a a2
a a3
b b1
b b2
c c1
c c2
c c3
")

所需输出(数据框):

group text
a     a1a2a3
b     b1b2
c     c1c2c3

我现在有:

sapply(unique(df$group), function(x) {
  paste0(df[df$group==x,"text"], collapse='')
})

这在某种程度上起作用,因为它返回按组正确折叠的文本,但作为向量:

[1] "a1a2a3" "b1b2"   "c1c2c3"

我需要一个带有group列的数据框.