Tfr_as_default()
ggplot(yellow_gel.spct) +
geom_line() +
scale_y_Tfr_continuous(Tfr.type = getTfrType(yellow_gel.spct)) +
scale_x_wl_continuous()
ggplot(yellow_gel.spct) +
geom_line() +
scale_y_Tfr_continuous(unit.exponent = -2,
Tfr.type = getTfrType(yellow_gel.spct)) +
scale_x_wl_continuous()
ggplot(yellow_gel.spct) +
geom_line() +
scale_y_Tfr_continuous(unit.exponent = -3,
Tfr.type = getTfrType(yellow_gel.spct)) +
scale_x_wl_continuous()
ggplot(yellow_gel.spct) +
geom_line() +
scale_y_Tfr_total_continuous() +
scale_x_wl_continuous()
ggplot(yellow_gel.spct) +
geom_line() +
scale_y_Tfr_total_continuous(axis.symbols = FALSE) +
scale_x_wl_continuous(axis.symbols = FALSE)
ggplot(normalize(yellow_gel.spct)) +
geom_line() +
scale_y_Tfr_total_continuous(normalized = "max") +
scale_x_wl_continuous()
unset_filter_qty_default()
Run the code above in your browser using DataLab