plot4.R commiting