add plot 2 png and R code