Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----libs, message = FALSE, warning = FALSE-----------------------------------
library(voteogram)
library(ggplot2)
## ----data, eval=FALSE---------------------------------------------------------
# sen <- roll_call("senate", 115, 1, 110)
# rep <- roll_call("house", 115, 1, 256)
## ----real_data, echo=FALSE----------------------------------------------------
sen <- readRDS(system.file("extdata", "sen.rds", package="voteogram"))
rep <- readRDS(system.file("extdata", "rep.rds", package="voteogram"))
## -----------------------------------------------------------------------------
str(sen)
sen$votes
## -----------------------------------------------------------------------------
str(rep)
fortify(rep)
## ----sen, fig.width=8, fig.height=5-------------------------------------------
senate_carto(sen) +
labs(title="Senate Vote 110 - Invokes Cloture on Neil Gorsuch Nomination") +
theme_voteogram()
## ----rep_pp_square, fig.width=8, fig.height=5---------------------------------
house_carto(rep, pp_square=TRUE) +
labs(x=NULL, y=NULL,
title="House Vote 256 - Passes American Health Care Act,\nRepealing Obamacare") +
theme_voteogram()
## ----rep_pp_orig, fig.width=8, fig.height=5-----------------------------------
house_carto(rep, pp_square=FALSE) +
labs(x=NULL, y=NULL,
title="House Vote 256 - Passes American Health Care Act,\nRepealing Obamacare") +
theme_voteogram()
## ----rep_gt, fig.width=8, fig.height=5----------------------------------------
house_carto(rep, "gt") +
labs(x=NULL, y=NULL,
title="House Vote 256 - Passes American Health Care Act,\nRepealing Obamacare") +
theme_voteogram()
## ----sen_small, fig.width=3, fig.height=2.1-----------------------------------
senate_carto(sen) + theme_voteogram(legend=FALSE)
## ----rep_small, fig.width=3, fig.height=2.1-----------------------------------
house_carto(rep) + theme_voteogram(legend=FALSE)
## ----rep_small_1, fig.width=3, fig.height=2.1---------------------------------
house_carto(rep, pp_square=TRUE) + theme_voteogram(legend=FALSE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.