Made return values for plot functions invisible
R script to implement the third plot and the plot itself
Bundled with calls together in one line
Updated image
Added script to generate fourth plot and the plot itself