This is a cleaned version of the replication data from Warwick and Druckman (2006).

The data are government level, so that each row of the data set represents one government that formed.

Load Data

# load packages
library(tidyverse)

# load data
gamson_df <- read_rds("gamson.rds") %>%
  glimpse()
## Observations: 826
## Variables: 2
## $ seat_share      <dbl> 0.02424242, 0.46060607, 0.51515150, 0.47204968...
## $ portfolio_share <dbl> 0.09090909, 0.36363637, 0.54545456, 0.45454547...

Variable Descriptions

seat_share

# histogram
ggplot(gamson_df, aes(x = seat_share)) + 
  geom_histogram()
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

porfolio_share

# histogram
ggplot(gamson_df, aes(x = seat_share)) + 
  geom_histogram()
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.