R语言使用pretty()生成坐标轴标签时如何统一数值小数位数

解决方案 #

你可以使用R内置的format()函数或者sprintf()函数实现末尾补零、统一小数位数的需求，prettyNum()本身默认会省略无意义的末尾零，无法直接满足该场景。

方法1：使用format()指定nsmall参数

nsmall参数用于强制指定数值最少保留的小数位数，不足部分自动补零：

at <- pretty(c(0.001, 0.05), n = 7)
# 原向量值：0.000 0.005 0.010 0.015 0.020 0.025 0.030 0.035 0.040 0.045 0.050

# 固定保留3位小数
format(at, nsmall = 3)
# 输出结果：
#  [1] "0.000" "0.005" "0.010" "0.015" "0.020" "0.025" "0.030" "0.035" "0.040" "0.045" "0.050"

如果需要自动适配当前向量的最大小数位数，不需要手动指定数值，可以用以下代码动态计算：

# 自动计算向量需要保留的最大小数位数
decimal_digits <- max(nchar(gsub(".*\\.", "", as.character(at))))
format(at, nsmall = decimal_digits)

方法2：使用sprintf()格式化字符串

直接通过格式化占位符指定小数位数，写法更简洁：

sprintf("%.3f", at)
# 输出结果和上述format方法完全一致

坐标轴场景用法

如果你要把格式化后的数值用作ggplot2的坐标轴标签，直接把格式化函数传给对应坐标轴的labels参数即可：

library(ggplot2)
ggplot() +
  scale_y_continuous(
    breaks = at,
    labels = ~sprintf("%.3f", .x)
  )

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