Create plot_gam.R