read_csv("data-raw/VoxPopuli.csv",
col_types = cols(
quantile = col_double(),
estimate = col_double(),
observed = col_double(),
normal = col_double(),
excess = col_double()
)) %>%
mutate(normal = 1207 + normal) %>%
select(-observed, -excess) %>%
save_data("VoxPopuli")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.