How do I aggregate data frame by group in column group
and collapse text in column text
?
Sample data:
df <- read.table(header=T, text="
group text
a a1
a a2
a a3
b b1
b b2
c c1
c c2
c c3
")
Required output (data frame):
group text
a a1a2a3
b b1b2
c c1c2c3
Now I have:
sapply(unique(df$group), function(x) {
paste0(df[df$group==x,"text"], collapse='')
})
This works to some extent as it returns text properly collapsed by group, but as a vector:
[1] "a1a2a3" "b1b2" "c1c2c3"
I need a data frame with group
column as a result.