Update poverty_plot.R