獲取推文的文字

現在我們需要訪問推文的文字。所以我們這樣做（我們還需要清除特殊字元的推文，這些字元現在我們不需要，就像具有 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)