R codes for plots
png plots