Update publication_plot.R