Create plot_locations.R