# 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)