first commit for plot4.R