ggplot(sun.spct) +
geom_line() +
stat_color() +
scale_color_identity()
ggplot(sun.spct) +
geom_line() +
stat_color(x.colour.transform = function(x) {-x}) +
scale_color_identity() +
scale_x_reverse()
ggplot(sun.spct) +
geom_line() +
stat_color(x.colour.transform = function(x) {10^x}) +
scale_color_identity() +
scale_x_log10()
Run the code above in your browser using DataLab