ProjProp2

library(mosaic)
library(dplyr)
library(ggplot2)
library(readr)

IowaVotes <- read_csv("C:/Users/casey/Downloads/IowaVotesCleaned Data.csv", show_col_types = FALSE)

ggplot(data = IowaVotes, aes(x = Year, y = Total_Voter_Turnout)) + geom_point()  + aes(colour = TypeOfElection) + theme(legend.position = "right") + labs(title = "")