Update proj2plot4.R