All Spectra with manual colours
Plot all spectra from the hyperSpec object with manually set colours. Palette define by brewer.pal and colorRampPalette functions.
Manual selection of palette is applied by scale_color_manual parameter.
nspectra<-nrow(object01)
pal01<-colorRampPalette(brewer.pal(nspectra, "Set1"))
all01<-ggplot(object02, aes (x = .wavelength, y = spc, colour = Sample))+ geom_line (size =lsize1) +
scale_x_reverse()+
scale_color_manual(values = pal01(nspectra))+
labs(x=expression(bold(paste ("Wavenumber", " [",cm ^-1, "]"))), y = "mIRage Amplitude [a.u.]" )
all01