ggplot(sun.spct, aes(x = wl2wavenumber(w.length), y = s.e.irrad)) +
geom_line() +
scale_x_wavenumber_continuous()
ggplot(sun.spct, aes(x = wl2wavenumber(w.length), y = s.e.irrad)) +
geom_line() +
scale_x_wavenumber_continuous(unit.exponent = -5)
Run the code above in your browser using DataLab