在ggplot2中将刻度标签转为指数表示且不缩放坐标轴

问题描述 #

使用ggplot2绘制大数值坐标轴时，默认的科学计数法标签（如1e+05、2e+05）不符合需求，希望将刻度标签改为指数表示法（如10⁵、2·10⁵），且保留ggplot2默认选择的刻度断点。明确排除以下方案：

• 对坐标轴进行对数缩放（如scale_x_log10相关设置）
• 将大数值转为非指数的普通数字格式
• 使用K、M、G等量级后缀

已找到接近的实现方案，但存在两个问题：刻度标签未水平对齐，用x而非·连接系数与10的幂；同时需要支持绝对值较大的负数（如-2·10⁵）及(-1,1)区间的数值。

解决方案 #

可以通过自定义标签函数结合scales包的工具实现需求，同时解决对齐、符号替换及多场景数值支持的问题：

自定义指数标签函数 #

library(scales)
library(ggplot2)

label_exponential_cdot <- function(x) {
  # 单独处理0的情况
  ifelse(x == 0, "0",
         # 将科学计数法格式转换为带cdot的表达式文本，再解析为数学符号
         parse(text = gsub(
           pattern = "e([+-]?\\d+)",
           replacement = " \\cdot 10^{\\1}",
           x = format(x, scientific = TRUE, trim = TRUE)
         ))
  )
}

使用示例 #

# 构造包含多类型数值的测试数据：大正负值、0、(-1,1)区间小数值
df <- data.frame(
  x = c(-2e5, -0.5, 0, 0.3, 1e5, 2.2e5),
  y = c(3.1e5, -1.5e5, 0, 0.7, -2e5, 1.5e5)
)

ggplot(df, aes(x, y)) +
  geom_point(size = 3) +
  # 应用自定义标签函数，保留默认刻度断点
  scale_x_continuous(labels = label_exponential_cdot) +
  scale_y_continuous(labels = label_exponential_cdot) +
  # 设置坐标轴文本右对齐，解决标签错位问题
  theme(axis.text.x = element_text(hjust = 1),
        axis.text.y = element_text(hjust = 1))

关键说明 #

1. 符号替换：通过正则表达式将科学计数法的e替换为LaTeX格式的\\cdot 10^{}，经parse()解析后会显示为·的标准指数连接符号；
2. 全场景支持：自动适配负数（如-2e5转为-2·10⁵）、0、(-1,1)区间小数值（如0.5转为5·10⁻¹）；
3. 对齐修复：通过theme中的hjust = 1设置坐标轴文本右对齐，确保所有标签水平对齐一致；
4. 保留默认断点：未修改breaks参数，完全沿用ggplot2自动选择的刻度断点逻辑，符合需求。

内容的提问来源于stack exchange，提问作者Rnewb