knitr::opts_chunk$set(echo = TRUE) library(ACLOlderAmericansProfile) library(esquisse)
esquisse::esquisser(profile_data[[12]])
ggplot(`profile_data[[7]]`) + aes(x = Income, weight = Households) + geom_bar(fill = "#112446") + theme_minimal()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.