powered by
trans_format(trans, format = scientific_format())
tf <- trans_format("log10", scientific_format()) tf(10 ^ 1:6)
Run the code above in your browser using DataLab