R script that generates plot6.png