r-assign-03-key.R

# set working directory
setwd("~/Dropbox/classes/pols-209")

# load packages
library(ggplot2)  # for creating figures
library(tibble)  # for glimpse()

# load data
leg <- readRDS("data/state-legislators.rds")  # data are in the data subfolder

# quick look at the data
glimpse(leg)

# subset to the 2014 data
leg2014 <- subset(leg, year == 2014)

# build plot
ggplot(leg2014, aes(x = ideology_score, fill = party)) + 
  geom_density(alpha = 0.5) + 
  facet_wrap(~ state) + 
  labs(x = "Ideology Score",
       y = "Density",
       fill = "Party",
       title = "Density Plots of the Ideology for Republicans, Independents, and Democrats in the 50 States in 2014",
       subtitle = "Polarization and Extremity Vary Across the States",
       caption = "Data from https://americanlegislatures.com") + 
  theme_bw()