add R code and plot png images