Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(pollster)
library(dplyr)
library(knitr)
library(ggplot2)
## -----------------------------------------------------------------------------
crosstab(df = illinois, x = sex, y = educ6, weight = weight) %>%
kable()
## -----------------------------------------------------------------------------
crosstab(df = illinois, x = sex, y = educ6, weight = weight, format = "long")
## -----------------------------------------------------------------------------
# cell percentages
crosstab(df = illinois, x = sex, y = educ6, weight = weight, pct_type = "cell")
# column percentages
crosstab(df = illinois, x = sex, y = educ6, weight = weight, pct_type = "column")
## ---- fig.width=5.6-----------------------------------------------------------
crosstab(df = illinois, x = sex, y = educ6, weight = weight, format = "long") %>%
ggplot(aes(x = educ6, y = pct, fill = sex)) +
geom_bar(stat = "identity", position = position_dodge()) +
labs(title = "Educational attainment of the Illinois adult population by gender")
## -----------------------------------------------------------------------------
moe_crosstab(illinois, educ6, voter, weight)
## -----------------------------------------------------------------------------
moe_crosstab(illinois, educ6, voter, weight, format = "wide")
## ---- fig.width=5-------------------------------------------------------------
illinois %>%
filter(year == 2016) %>%
moe_crosstab(educ6, voter, weight) %>%
ggplot(aes(x = pct, y = educ6, xmin = (pct - moe), xmax = (pct + moe),
color = voter)) +
geom_pointrange(position = position_dodge(width = 0.2))
## -----------------------------------------------------------------------------
moe_wave_crosstab(df = illinois, x = year, y = rv, weight = weight)
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.