r - str_extract_all 返回一个列表，但我想要一个向量

Question

在这里对 R 来说还是比较新的。我有一列推文，我正在尝试创建一个包含转推句柄“RT @blahblah”的列，如下所示:

Tweets                            Retweetfrom
RT @john I had a good day         RT @john
RT @josh I had a bad day          RT @josh

这是我的代码:

r$Retweetfrom <- str_extract_all(r$Tweets, "^RT[:space:]+@[:graph:]+")

它给了我结果，但是新列不是向量，而是一个列表。当我尝试取消列出它时，它会抛出一个错误:

Error in `$<-.data.frame`(`*tmp*`, "Retweetfrom", value = c("@AlpineITW", "@AllScienceGlobe",  : replacement has 1168 rows, data has 2306

有谁知道如何处理这个问题？非常感谢。

Answer 1

如果我们对 base R 感兴趣选项，sub会很有用

r$Retweetfrom <- sub(".*\\b(RT\\s+@[[:graph:]]+)\\s+.*", 
                         "\\1", r$Tweets)
r$Retweetfrom
#[1] "RT @john" "RT @josh"