ggplot(sun.spct, unit.out = "energy") +
geom_line() +
scale_y_s.e.irrad_continuous() +
scale_x_wl_continuous()
ggplot(sun.spct) +
geom_line() +
scale_y_s.e.irrad_continuous(unit.exponent = -3) +
scale_x_wl_continuous()
ggplot(fscale(sun.spct)) +
geom_line() +
scale_y_s.e.irrad_continuous(scaled = TRUE) +
scale_x_wl_continuous()
ggplot(normalize(sun.spct, norm = "max")) +
geom_line() +
scale_y_s.e.irrad_continuous(normalized = "max") +
scale_x_wl_continuous()
my.spct <- normalize(q2e(sun.spct, action = "replace"), norm = "max")
ggplot(my.spct) +
geom_line() +
scale_y_s.e.irrad_continuous(normalized = normalization(my.spct)$norm.type,
pc.out = TRUE) +
scale_x_wl_continuous()
ggplot(my.spct) +
geom_line() +
scale_y_s.e.irrad_continuous(normalized = normalization(my.spct)$norm.wl,
pc.out = TRUE) +
scale_x_wl_continuous()
ggplot(sun.spct) +
geom_line() +
scale_y_s.e.irrad_continuous(axis.symbols = FALSE) +
scale_x_wl_continuous()
ggplot(sun.spct) +
geom_line() +
scale_y_s.e.irrad_continuous(label.text = "") +
scale_x_wl_continuous()
ggplot(sun.spct) +
geom_line() +
scale_y_s.e.irrad_continuous(label.text = "Irradiancia espectral,") +
scale_x_wl_continuous(label.text = "Longitud de onda,")
ggplot(sun.spct) +
geom_line() +
scale_y_s.e.irrad_continuous(unit.exponent = -1) +
scale_x_wl_continuous()
ggplot(sun.spct, unit.out = "photon") +
geom_line() +
scale_y_s.q.irrad_continuous() +
scale_x_wl_continuous()
ggplot(clip_wl(sun.spct, c(295, NA))) +
geom_line() +
scale_y_s.e.irrad_log10() +
scale_x_wl_continuous()
ggplot(clip_wl(sun.spct, c(295, NA)),
unit.out = "photon") +
geom_line(na.rm = TRUE) +
scale_y_s.q.irrad_log10() +
scale_x_wl_continuous()
Run the code above in your browser using DataLab