dw_nominate_house: Scores from the DW NOMINATE project

In clauswilke/dviz.supp: Supporting materials for Claus Wilke's data visualization book

Description

The table dw_nominate_house provides data from the the House legislator file containing DW-NOMINATE scores for the 1st to the 113th Congresses (1789 - 2014).

Usage

dw_nominate_house

Format

An object of class tbl_df (inherits from tbl, data.frame) with 37521 rows and 16 columns.

References

Jeffrey B. Lewis and Keith T. Poole. Measuring Bias and Uncertainty in Ideal Point Estimates via the Parametric Bootstrap. Political Analysis 12:105-127, 2004.

Royce Carroll, Jeffrey B. Lewis, James Lo, Keith T. Poole, and Howard Rosenthal. Measuring Bias and Uncertainty in DW-NOMINATE Ideal Point Estimates via the Parametric Bootstrap. Political Analysis 17:261-27, 2009.

http://k7moa.com/

Examples

Adapted from code by Ian McDonald, http://rpubs.com/ianrmcdonald/293304

all_house_88_113 <- dw_nominate_house %>% 
  filter(congress >= 88 & cd !=0 & cd != 98 & cd != 99) %>%
  filter(party_code == 100 | party_code == 200) %>%
  arrange(desc(congress)) %>% mutate(year1 = congress * 2 + 1787) %>%
  arrange(desc(year1))

library(ggridges)

ggplot(all_house_88_113, aes(x = dim_1, y = year1, group = interaction(year1, party_code), fill = factor(party_code))) +
  geom_density_ridges(scale = 7, size = 0.25, rel_min_height = 0.01, alpha=0.7) +
  theme_ridges(center = TRUE) +
  scale_x_continuous(limits=c(-1, 1.3), expand = c(0.01, 0), breaks=c(-1,-.75,-.5,-.25,0,.25,.5,.75,1)) +
  scale_y_reverse(breaks=c(seq(2013, 1963, -10))) +
  scale_fill_manual(values = c("blue", "red"), breaks = c("100", "200"), labels = c("Democratic", "Republican"), name = "Party") +
  ggtitle("DW-NOMINATE by party of U.S. House: 1963-2013") + 
  ylab("First Year of Each Congress") +
  xlab("Distribution of 1st Dimension DW-NOMINATE by party") 

clauswilke/dviz.supp documentation built on Aug. 25, 2020, 2:12 a.m.