Create Carolina_plot1.R