ggplot轴标签如何设置动态小数精度并添加千位分隔符

核心解法 #

不需要写繁琐的ifelse逐值判断，直接使用{scales}包内置的label_number()函数即可满足需求：

• 不要给函数传固定的accuracy参数，该参数留空（新版本默认值为NULL）时，函数会自动为每个刻度匹配最少需要的小数位数，自动裁剪无意义的尾部0
• 直接配置big.mark = ","参数即可同时支持千位分隔符格式

实现代码 #

library(tidyverse)
library(scales)

tibble(x = -2:3, y = 10^x) %>% 
  ggplot(aes(x, y)) + 
  geom_point() +
  ggtitle("效果：各标签按需保留最少小数位，自带千位分隔符") +
  scale_y_log10(
    labels = label_number(big.mark = ","), 
    breaks = 10^(-2:3)
  )

运行后y轴刻度会自动输出0.01、0.1、1、10、100、1,000，和手动指定标签的预期效果完全一致。

旧版本兼容方案 #

如果使用的是1.2.0之前的旧版{scales}（该版本前label_number()默认不会自动裁剪尾部零），可以用几行代码写一个轻量的自定义标签函数，逻辑远比重度嵌套ifelse简洁：

# 自定义智能标签函数
smart_num_label <- function(big.mark = ",") {
  function(values) {
    format(
      values,
      big.mark = big.mark,
      scientific = FALSE,
      trim = TRUE # 自动去除格式化产生的前导/尾部冗余空格、无意义零值
    )
  }
}

# 调用示例
tibble(x = -2:3, y = 10^x) %>% 
  ggplot(aes(x, y)) + 
  geom_point() +
  ggtitle("旧版本兼容效果") +
  scale_y_log10(labels = smart_num_label(), breaks = 10^(-2:3))

扩展说明 #

• 该逻辑同样适用于线性轴、百分比轴、带单位的SI单位轴，只要对应使用label_percent()、label_number_si()等同类标签函数，不强制指定固定accuracy值即可实现动态精度适配
• 可通过decimal.mark参数自定义小数点符号，适配不同地区的数值格式规范

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