ggplot(Ler_leaf_rflt.spct) +
geom_line() +
scale_y_Rfr_continuous(Rfr.type = getRfrType(Ler_leaf_rflt.spct)) +
scale_x_wl_continuous()
ggplot(Ler_leaf_rflt.spct) +
geom_line() +
scale_y_Rfr_continuous(unit.exponent = -2,
Rfr.type = getRfrType(Ler_leaf_rflt.spct)) +
scale_x_wl_continuous()
ggplot(Ler_leaf_rflt.spct) +
geom_line() +
scale_y_Rfr_continuous(unit.exponent = -3,
Rfr.type = getRfrType(Ler_leaf_rflt.spct)) +
scale_x_wl_continuous()
ggplot(Ler_leaf_rflt.spct) +
geom_line() +
scale_y_Rfr_specular_continuous() +
scale_x_wl_continuous()
ggplot(Ler_leaf_rflt.spct) +
geom_line() +
scale_y_Rfr_specular_continuous(axis.symbols = FALSE) +
scale_x_wl_continuous(axis.symbols = FALSE)
ggplot(normalize(Ler_leaf_rflt.spct)) +
geom_line() +
scale_y_Rfr_continuous(Rfr.type = getRfrType(Ler_leaf_rflt.spct),
normalized = "max") +
scale_x_wl_continuous()
Run the code above in your browser using DataLab