added plot1 .R and .png