r - 强制 R 将科学记数法写为 n.nn x 10^-n 和上标

Question

假设我有两个花车

a <- 8.9384920e-24
b <- 0.00293892837

我想在图形上以 10 位科学记数法四舍五入到两位小数来显示它们中的任何一个，可能使用 paste()，但在 10 之后使用上标格式。

8.94 x 10^-24 #no ^ and superscript font
2.94 x 10^-4  #no ^ and supercript font, should be -4, not -04

这真的很疯狂，但它是上级要求的，它必须在 base R(不是 ggplot2)中完成，否则我将不得不重写 600 行代码......现在我能看到的是 float 的打印方式不同，具体取决于它们的大小...

Answer 1

你可以在sfsmisc包中检查eaxis

# some data
x <- seq(1, 100000, len = 10)
y <- seq(1e-5, 1e-4, len = 10)

# default axes
plot(x, y)

# eaxis
plot(x, y, axes = FALSE)
eaxis(side = 1)
eaxis(side = 2)

您还可以使用同一包中的 pretty10exp() 创建标签 expression。例如，将格式应用于绘图标题:

plot(x, y, axes = FALSE)
title(pretty10exp(y[1]))