## ----message=FALSE------------------------------------------------------------
    library(choroplethr)

    data(df_pop_state)
    state_choropleth(df_pop_state, 
                     title  = "2012 US State Population Estimates", 
                     legend = "Population")

