R中的条件合并

Question

我想为.txt文件中的数据集的每个文件创建单独的成绩单，其中包含两个冒号LABEL（单词）和FILE（单词在其中的文件）。

所以我的DF（样本）看起来像这样：

file        label
 bla_1       _
 bla_1       so
 bla_1       we
 bla_1     know
 bla_1     that
 bla_1     right 
 bla_2     my
 bla_2     mummy
 bla_2     said
 bla_2     so

我可以轻松地将所有内容粘贴在一起：

text <-paste(unlist(sample), collapse =" ");text

结果是

"_ so we know that right my mummy said so"

但是，我怎么能按值插入是否会产生单独的文本（并将其保存在单独的文件）语句file ？

bla_1     "_ so we know that right" 
bla_2     "my mummy said so"

谢谢

生殖DF ：

sample <- data.frame(file=c(rep("bla_1",6),rep("bla_2",4)),label=c("_","so","we" ,"know" ,"that" ,"right" ,"my" ,"mummy" ,"said" ,"so"))

Answer 1

正如lukeA指出的那样，我只是忘记了在这种情况下可以正常工作的聚合函数。

aggregate(label~file, sample, paste, collapse = " ") 

Answer 2

Tidyverse方法：

library(dplyr)

sample %>%
  group_by(file) %>% 
  summarise(paste(label, collapse = " "))