Create extinction_plot.R