Update extinction_plot.R