plot_usmap(data = statepov, values = "pct_pov_2014", color = "white") + 
  scale_fill_continuous(name = "Poverty Percentage", label = scales::comma) +
  theme(legend.position = "left") + ggtitle("Percentage of Poverty by State")