This is going to show some dotplots for education and poverty at the state level.
# Load your libraries here library('lehmansociology') library('ggplot2')
# Dot plots ggplot(poverty.states, aes(x = PCTPOVALL_2013)) + geom_dotplot(binwidth = 1, method="histodot") + scale_y_continuous(NULL, breaks = NULL) ggplot(education.states, aes(x = Percent.of.adults.with.less.than.a.high.school.diploma..2009.2013)) + geom_dotplot(binwidth = 1, method="histodot") + scale_y_continuous(NULL, breaks = NULL) ggplot(education.states, aes(x = Percent.of.adults.with.a.bachelor.s.degree.or.higher..2009.2013)) + geom_dotplot(binwidth = 1, method="histodot") + scale_y_continuous(NULL, breaks = NULL) states<-merge(education.states, poverty.states, by.x = 'FIPS.Code', by.y = 'FIPStxt')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.