Addition to R4iSCAM.R using more ggplots.