Question

我使用此代码使用R提取推文，我还想在每个推文上附加时间戳w.r.t并将其存储在数据框中。数据框中的时间戳应该在适当的日期和时间。时间格式不仅仅是数字。这是代码：

library(twitteR)
library(ROAuth)
library(httr)
library(RCurl)
library(stringr)
# Set API Keys
api_key <- ".................."
api_secret <- "..............."
access_token <- "............."
access_token_secret <- ".............."
setup_twitter_oauth(api_key, api_secret, access_token, access_token_secret)
# Grab latest tweets

tweets<- searchTwitter('@xyz', n=3000,lang="en",resultType="recent") 
str(tweets[[1]])
tweets[[1]]$created # date time
#tweet_text<-[]
timestamp<-0
for (tweet in length(tweets))
{ #tweet_text[tweet]<-tweets[[tweet]]$getText
  timestamp[tweet]<-tweets[[tweet]]$created
 }

上面的代码刚刚处于初期阶段，它没有用。我打算做的是：创建一个包含四列的数据框：1。推文2. Date_time_stamp 3.日期4.时间

感谢您的所有帮助

Answer 1

你可以做到

tweets <- searchTwitter("#AlternativeFacts", n=2)
t(sapply(tweets, function(x) 
  with(x, cbind(text, created, format(created, "%F"), format(created, "%T")))
     [,1]                                [,2]         [,3]         [,4]      
[1,] "Les #AlternativeFacts se disen..." "1485535839" "2017-01-27" "16:50:39"
[2,] "RT @funder: Trump Owns Stake I..." "1485535839" "2017-01-27" "16:50:39"

如何在时间戳中附加带时间戳的推文作为数据帧

1 个答案: