R file plot1