add plot 3 png and R code