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()
unset_filter_qty_default()
Run the code above in your browser using DataLab