R:轴刻度标签来自数组的动态上标

Question

我正在尝试在 R 中为 ggplot2 生成带上标的轴刻度。我想要一个类似这样的情节: Plot from python

但我能做的看起来像这样:Plot using ggplot2 R

注意 y 轴上的轴刻度。 python 有 10²、10⁴、10⁶ 我想用 R 创建，但是 使用我的代码我无法这样做。

+scale_y_continuous(labels = function(x){return (paste("10^", x,sep = ""))})

我使用此代码在 R 图中创建标签。即 10^2、10^4、10^6 等。 我尝试使用不同论坛上提供的函数表达式及其所有变体:

+scale_y_continuous(labels = function(x){return (expression(10^x))}

但它们都产生相同的输出，即所有刻度上的 10^x、10^x、10^x。表达式函数不理解字符和变量之间的区别。

如何在不手动设置每个刻度值的情况下完成 10²、10⁴、10⁶ 等刻度。由于我的代码使用值数组生成刻度标签，因此我无法手动执行此操作。我一次生成数百个图，因此我需要通过读取 y 轴值并相应地转换它们来动态地执行此操作。

我不想更改号码的格式。我的数组已经计算出 log(x) 值，我只想在其后面添加 10 并使其成为上标。 使用 Scientific_format 更改格式不是我正在寻找的解决方案，因为我想要一种可以将文本更改为 10² 形式的方法。我想添加标签而不应用任何标签数据更改。

Answer 1

我认为 scale_y_continuous(labels = math_format(10^.x)) 就是您想要的:

library(scales); library(ggplot2)
a <- ggplot(iris, aes(x=Sepal.Length, y=Petal.Length)) + geom_point()   # Left (to compare)
b <- a + scale_y_continuous(labels = math_format(10^.x))   # Middle 
c <- b + annotation_logticks(side="l")                     # Right
   # (Note; "10^.x" is default value, so it is omissible.)
print(a); print(b); print(c)