First three R script with their png files