r-assign-04-key.R

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

# load packages
library(dplyr)
library(ggplot2)


# load data
leg <- readRDS("data/state-legislators.rds")  # read data set

# quick look
glimpse(leg)

# create a grouped df
grouped_df <- group_by(leg, party, year, state)

# summarize data set by group
smry <- summarize(grouped_df, 
                  average_ideology = mean(ideology_score))

ggplot(smry, aes(x = year, y = average_ideology, group = state)) + 
  geom_line(alpha = 0.5) + 
  facet_wrap(~ party)