Create Carolina_plot4.R