```r
trump_tweets <- userTimeline("realDonaldTrump", n = 3200, excludeReplies = TRUE)
d<- tbl_df(map_df(trump_tweets, as.data.frame))
trump_tweets2 <- userTimeline("realDonaldTrump", n = 3200, excludeReplies = TRUE,maxID=min(d$id))
d2<- tbl_df(map_df(trump_tweets2, as.data.frame))
d<-rbind(d,d2)
d$hour<-hour(with_tz(d$created, "EST"))
```