Convertire frasi di parole in R

Question

Ho un frame di dati in forma di colonne - ingresso

Id Comment 
xc545 Ronald is a great person 
g6548 Hero worship is bad 

ho bisogno l'output sotto forma di Risultato

Id Words 
xc545 Ronald 
xc545 is 
xc545 a 
xc545 great 
xc545 person 
g6548 Hero 
g6548 worship 
g6548 is 
g6548 bad 

bisogno di una dichiarazione R per eseguire questo.

seguito è quello che ho provato -

result<-lapply(input,function(x)strsplit(x[2]," ")) 

Tuttavia, questo restituisce solo record.

Answer 1

Supponiamo DF è la vostra data.frame, una possibilità potrebbe essere:

> List <- strsplit(DF$Comment, " ") 
> data.frame(Id=rep(DF$Id, sapply(List, length)), Words=unlist(List)) 
    Id Words 
1 xc545 Ronald 
2 xc545  is 
3 xc545  a 
4 xc545 great 
5 xc545 person 
6 g6548 Hero 
7 g6548 worship 
8 g6548  is 
9 g6548  bad 

Nota che la mia risposta è valido solo quando v'è un semplice spazio tra ogni coppia di parole.

Answer 2

Una soluzione data.table ispirato da una this:

library(data.table) 
dt = data.table(df) 
dt[,c(Words=strsplit(Comment, " ", fixed = TRUE)), by = Id] 
Id  V1 
1: xc545 Ronald 
2: xc545  is 
3: xc545  a 
4: xc545 great 
5: xc545 person 
6: g6548 Hero 
7: g6548 worship 
8: g6548  is 
9: g6548  bad 

Answer 3

Utilizzando scan, tapply e stack:

d <- read.table(text='Id Comment 
xc545 "Ronald is a great person" 
g6548 "Hero worship is bad"', header=TRUE, as.is=TRUE) 

stack(tapply(d$Comment, d$Id, function(x) scan(text=x, what=''))) 
# values ind 
# 1 Hero g6548 
# 2 worship g6548 
# 3  is g6548 
# 4  bad g6548 
# 5 Ronald xc545 
# 6  is xc545 
# 7  a xc545 
# 8 great xc545 
# 9 person xc545