Using the midwest dataframe from ggplot2:
midwest
ggplot2
# (in app_ui.r) poverty_sidebar <- sidebarPanel(