# NOT RUN {
ggplot(yellow_gel.spct) +
geom_line() +
scale_y_Rfr_total_continuous() +
scale_x_wl_continuous()
ggplot(yellow_gel.spct) +
geom_line() +
scale_y_Rfr_total_continuous(-2) +
scale_x_wl_continuous()
ggplot(yellow_gel.spct) +
geom_line() +
scale_y_Rfr_total_continuous(-3) +
scale_x_wl_continuous()
ggplot(yellow_gel.spct) +
geom_line() +
scale_y_Rfr_total_continuous() +
scale_x_wl_continuous()
# }
Run the code above in your browser using DataLab