2014-10-09 50 views
2

(弄平列表)行我有一个data.frame鸣叫的列表,我可以使用从中提取主题标签的列表不公开通过行中的数据帧,使用R

> rpg.twitter.df$hashtags <- 
    regmatches(rpg.twitter.df$text,gregexpr("#(\\d|\\w)+",rpg.twitter.df$text)) 

它与一个结束列表中的每一行。现在,我要压平逗号分隔的字符串每个列表(每行一个)

我尝试这样做:

do.call("paste", c(rpg.twitter.df$hashtags, sep=", ")) 

,但因为它与一个巨大的矢量结束了它不工作。同样如果我附上regmatchesunlist(..., recursive=FALSE)

任何想法如何解决它?

一个重复的例子,一些数据:

rpg.twitter.df <- data.frame(text=rbind("World of Warcrack: http://t.co/3MNRpArnGw #wow #WorldOfWarcraft #warcraft #mmorpg #rpg #RPGChat #gaming #pcgaming #online @WoW_en @NewsWoW", "@ashleythedragon join my journey in Tweeria http://t.co/CFKDLA3ASE #rpg", "How to use of #RPG for motivation #timeboxing http://t.co/mwwN5xErHx")) 
+2

你有重复的例子?你尝试了'do.call(“c”,...)'或'do.call(“rbind”,...)'? – 2014-10-09 10:49:10

+0

是的,没办法。同时我添加了一些数据以便复制 – 2014-10-09 10:53:08

+0

当您说“列表”时请小心。一半时间,你的意思是“矢量”。 – flodel 2014-10-09 10:56:44

回答

2

你可以这样做:

sapply(rpg.twitter.df$hashtags, paste, collapse = ",") 
+0

tnx,它的作品就像一个魅力! – 2014-10-09 10:58:04

2

您也可以使用此:

toString(rpg.twitter.df$hashtags)