Voter Turnout for Dems vs Repubs in 2008, 2012, 2016

voter_turnout.R

# Same plot as https://rudeboybert.github.io/MATH116/assets/figure/blue_vs_red.jpg
# But with y-axis starting at 0
library(dplyr)
library(ggplot2)

voter_turnout <- data_frame(
  # Make year a categorical variable:
  Year = as.factor(c(2008, 2008, 2012, 2012, 2016, 2016)),
  Party = c("Democrat", "Republican", "Democrat", "Republican", "Democrat", "Republican"),
  Votes = c(69.5, 60, 66, 61, 59, 59)
)

ggplot(data=voter_turnout, aes(x=Year, y=Votes, fill=Party)) +
  geom_bar(stat="identity", position="dodge") +
  labs(x="Year", y="Votes (in millions)") + 
  scale_fill_manual(values=c("blue", "red"))