CODEWITHSUNDEEP
rmergeconditional-statements
prosodis
prosodis

Reputation: 55

Conditional merging of row in R

I want to create individual transcripts in .txt files for each file of my data set which contains two colones LABEL (the word) and FILE (the file the word was said in).

So my DF (sample) looks like this : 

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

I can easily paste everything together : 

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

Result is 

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

But how could I insert an if statement that would generate individual text (and save them in separate files) according to the value of file ?

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

Thank you

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"))

Upvotes: 1

Views: 209

Answers (2)

Peter
Peter

Reputation: 12699

Tidyverse approach:

library(dplyr)

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

Upvotes: 0

prosodis
prosodis

Reputation: 55

As lukeA points out, I just forgot about aggregate function that works perfectly in this case. 

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

Upvotes: 1

Related Questions