Create Spectra plot.R