library(ggplot2)
library(tidyr)
data("absorbance")
absorbance <- gather(absorbance, sample, absorbance, -wavelength)
ggplot(absorbance, aes(x = wavelength, y = absorbance, group = sample)) +
geom_line(aes(color = sample), size = 0.1)Run the code above in your browser using DataLab