plot2,3,4.R commit