barplot.R

library(tidyverse)
library(jsonlite)
library(lubridate)
library(ggplot2)
library(ggforce)
library(scales)
library(ggpie)

#install.packages("twitteR")
library(twitteR)

consumer_key<-"VJbodovqculNFbYgxZWLeaics"
consumer_secret<-"bRXsaKg6jfpRk50vNShJGVlTpfPrdl926lFQa5rXuyXuT0dRur"


access_token <-"1263254721264930816-YP2dsdT5AjGafvPRMJ2GJP5pqEOVmg"

access_secret <- "sm3uZYXL4KfWSOiftvfDqqt3tBYonTLYKeH4b1kDJfi3Q"

setup_twitter_oauth(consumer_key, consumer_secret, access_token, access_secret)

#Get the number of posted tweets on each proposition
tw15= length(twitteR::searchTwitter('#Prop15', n=1e4, since = '2020-09-01', retryOnRateLimit = 1e3))

tw16= length(twitteR::searchTwitter('#Prop16', n=1e4, since = '2020-09-01', retryOnRateLimit = 1e3))

tw17= length(twitteR::searchTwitter('#Prop17', n=1e4, since = '2020-09-01', retryOnRateLimit = 1e3))

tw18= length(twitteR::searchTwitter('#Prop18', n=1e4, since = '2020-09-01', retryOnRateLimit = 1e3))

tw19= length(twitteR::searchTwitter('#Prop19', n=1e4, since = '2020-09-01', retryOnRateLimit = 1e3))

tw20= length(twitteR::searchTwitter('#Prop20', n=1e4, since = '2020-09-01', retryOnRateLimit = 1e3))

tw21= length(twitteR::searchTwitter('#Prop21', n=1e4, since = '2020-09-01', retryOnRateLimit = 1e3))

tw22= length(twitteR::searchTwitter('#Prop22', n=1e4, since = '2020-09-01', retryOnRateLimit = 1e3))

tw23= length(twitteR::searchTwitter('#Prop23', n=1e4, since = '2020-09-01', retryOnRateLimit = 1e3))

tw24= length(twitteR::searchTwitter('#Prop24', n=1e4, since = '2020-09-01', retryOnRateLimit = 1e3))

#make a dataset save numbers.
data_pie<-data.frame(num=c(tw15,tw16,tw17,tw18,tw19,tw20,tw21,tw22,tw23,tw24), Proposition=c("Prop15","Prop16","Prop17","Prop18","Prop19","Prop20","Prop21","Prop22","Prop23","Prop24") )

data_pie1 <-data_pie %>% mutate(per=num/sum(num))

#barplot on Number of Tweets for proposistions.
q<-ggplot(data_pie1, aes(x=Proposition, y=num)) +
  geom_bar(stat="identity",fill="steelblue")+theme_minimal()+ 
  ggtitle("Number of Tweets for proposistions") + 
  ylab("Number of Tweets")
q