R code and .png-files