获取推文的文字

现在我们需要访问推文的文本。所以我们这样做（我们还需要清除特殊字符的推文，这些字符现在我们不需要，就像具有 sapply 功能的表情符号一样。）

coffee_tweets = sapply(c_tweets, function(t) t$getText())

coffee_tweets <- sapply(coffee_tweets,function(row) iconv(row, "latin1", "ASCII", sub=""))

你可以用 head 函数检查你的推文。

head(coffee_tweets)