plot 1

png plot for figure 1 and the R code to make it