Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(redistmetrics)
data(nh)
## ---- echo = FALSE------------------------------------------------------------
library(ggplot2)
nh %>%
ggplot() +
geom_sf(aes(fill = as.character(r_2020))) +
labs(fill = 'none')
## -----------------------------------------------------------------------------
comp_polsby(plans = nh$r_2020, shp = nh)
## -----------------------------------------------------------------------------
comp_schwartz(plans = nh$r_2020, shp = nh)
## -----------------------------------------------------------------------------
comp_reock(plans = nh$r_2020, shp = nh)
## -----------------------------------------------------------------------------
comp_box_reock(plans = nh$r_2020, shp = nh)
## -----------------------------------------------------------------------------
comp_ch(plans = nh$r_2020, shp = nh)
## -----------------------------------------------------------------------------
comp_skew(plans = nh$r_2020, shp = nh)
## -----------------------------------------------------------------------------
comp_x_sym(plans = nh$r_2020, shp = nh)
## -----------------------------------------------------------------------------
comp_y_sym(plans = nh$r_2020, shp = nh)
## -----------------------------------------------------------------------------
comp_lw(plans = nh$r_2020, shp = nh)
## -----------------------------------------------------------------------------
comp_bc(plans = nh$r_2020, shp = nh)
## -----------------------------------------------------------------------------
comp_fh(plans = nh$r_2020, shp = nh, total_pop = pop)
## -----------------------------------------------------------------------------
comp_edges_rem(plans = nh$r_2020, shp = nh, adj = nh$adj)
## -----------------------------------------------------------------------------
comp_frac_kept(plans = nh$r_2020, shp = nh, adj = nh$adj)
## -----------------------------------------------------------------------------
comp_log_st(plans = nh$r_2020, shp = nh, adj = nh$adj, counties = county)
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.