2015-02-11 55 views
1

我想为包含两个colone LABEL(单词)和FILE(单词所在的文件)的数据集的每个文件在.txt文件中创建单独的脚本。R中有条件合并的行

所以我的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" 

但我怎么可以插入if语句会生成单个文本(并将它们保存在单独的文件中)根据file的值?

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

谢谢

reproductible 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")) 
+1

'aggregate(label〜file,sample,paste,collapse =“”)'? – lukeA 2015-02-11 11:04:35

回答

1

由于lukeA指出的那样,我只是忘了,在这种情况下完美的作品聚集函数。

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