数据如上

原始数据如上图，有很多，就是这个形式的，我想用ggplot2绘图，必须变成下面的形式，如何数据转换呢？或者ggplot2能不能直接对数据进行转换？

library(ggplot2)
plotdata <-read.csv(file = "sample.csv", header = TRUE)
ggplot(plotdata, aes(wavelength, ref, col=type))+
  geom_line()


图如上，有没有什么更好的方法呢？求教啊