ggplot(sun.spct, aes(x = wl2energy(w.length, unit = "joule"), y = s.e.irrad)) +
geom_line() +
scale_x_energy_J_continuous()
ggplot(sun.spct, aes(x = wl2energy(w.length, unit = "joule"), y = s.e.irrad)) +
geom_line() +
scale_x_energy_J_continuous(unit.exponent = -19)
ggplot(sun.spct, aes(x = wl2energy(w.length, unit = "eV"), y = s.e.irrad)) +
geom_line() +
scale_x_energy_eV_continuous()
ggplot(sun.spct, aes(x = wl2energy(w.length, unit = "eV"), y = s.e.irrad)) +
geom_line() +
scale_x_energy_eV_continuous(unit.exponent = -3)
Run the code above in your browser using DataLab