library(rtweet) library(tidyverse) library(dplyr) library(hrbrthemes) library(extrafont) library(viridis) ## create token named "twitter_token" twitter_token <- create_token( app = appname, consumer_key = key, consumer_secret = secret) event <- search_tweets("#nhshsepsis") event # who tweeted the most? data <- event %>% select (screen_name,status_id,text,created_at,retweet_count, favorite_count,is_retweet,source,mentions_screen_name,hashtags) most_tweets <- data %>% group_by(screen_name) %>% tally(sort=TRUE) %>% arrange(n) %>% ggplot(aes(reorder(screen_name, n),n))+ geom_col()+ ggtitle("Most Tweets - NHS Highland Sepsis Event\n 6th Nov 2017")+ xlab(NULL) + ylab(NULL)+ coord_flip()+ theme_ipsum() most_tweets ggsave("2017-11-06-most-tweets.png") # whose tweets were most favourited most_favs <- data %>% group_by(favorite_count,screen_name) %>% tally(sort=TRUE) %>% arrange(favorite_count) %>% ggplot(aes(reorder(screen_name, favorite_count),favorite_count))+ geom_bar(stat="identity")+ ggtitle("Most Favourited - NHS Highland Sepsis Event\n 6th Nov 2017")+ xlab(NULL) + ylab(NULL)+ coord_flip()+ theme_ipsum()+ scale_fill_viridis(discrete = TRUE) most_favs ggsave("2017-11-06-most-favs.png") #Apple or Android? Or something else? devices <- data %>% group_by(source) %>% tally(sort=TRUE) %>% arrange(n) %>% ggplot(aes(reorder(source, n),n))+ geom_col()+ ggtitle("Most Popular Devices in use -\ NHSH Tweeters")+ xlab(NULL) + ylab(NULL)+ coord_flip()+ theme_ipsum() devices ggsave("2017-11-06-devices.png")