Dpananos

library(tidyverse)

n.samples = 25

set.seed(5)
rerun(20,rnorm(n.samples)) %>% 
  map_dfr(~data_frame(data = list(.x)), .id = 'samples') %>% 
  mutate(mu = map_dbl(data,mean), 
         se = map_dbl(data,~sd(.x)/sqrt(length(.x))), 
         top = mu +1.96*se,

Dpananos

library(tidyverse)
library(lubridate)
library(rtweet)

user.name = 'PhDemetri'
#Get user's most recent tweets
user = get_timeline(user = user.name, n = 5000)

#Clean the data.