打印 y 轴标题，数字提升到 10 次方和实数乘法符号

Posted 2023-04-13

【中文标题】打印 y 轴标题，数字提升到 10 次方和实数乘法符号

【英文标题】：Print y-axis title with number raised to power of 10 and real multiplication sign

【发布时间】：2020-06-25 02:10:09

【问题描述】：

我正在绘制以下数据：

library(ggplot2)
library(scales)

data <- data.frame(x = 1:3, y = 1:3)
ggplot(data, aes(x, y)) + 
    geom_point() +
    scale_y_continuous(name = paste("y value (*", math_format()(-4), ")", sep = ""))

如下所示：

我对 y 轴标签不满意。我希望将 * 更改为乘号（真正的乘号而不是字母 x）。我还希望将 -4 提高到 10 的幂。所需的 y 轴标题如下：

我不确定如何实现这些。谢谢。

【参考方案1】：

使用绘图：

ggplot(data, aes(x, y)) + 
  geom_point() + 
  ylab(expression(y~value~(phantom()%*%10^-4)))