ggplot(white_led.cps_spct) +
geom_line() +
scale_y_cps_continuous() +
scale_x_wl_continuous()
ggplot(white_led.cps_spct) +
geom_line() +
scale_y_cps_continuous(3) +
scale_x_wl_continuous()
ggplot(white_led.cps_spct * 1e-4) +
geom_line() +
scale_y_cps_continuous(scaled = TRUE) +
scale_x_wl_continuous()
norm_led.cps_spct <- normalize(white_led.cps_spct, norm = "max")
ggplot(norm_led.cps_spct) +
geom_line() +
scale_y_cps_continuous(normalized = getNormalized(norm_led.cps_spct)) +
scale_x_wl_continuous()
Run the code above in your browser using DataLab