Add plot4.R