R file plot2