Update and rename Plot4 to plot4.R