ggplot2对数轴标签优化：仅显示必要小数位数

我完全懂你的需求：log10刻度的x轴，标签不用科学计数法，还得只保留必要的小数位数——比如0.1就显示0.1，100就显示100，多余的末尾0必须去掉。之前的两种方法确实都没完美解决这个问题，我来给你一个精准的解决方案：

首先我们写一个自定义标签函数，它能智能处理数字的显示格式，自动剔除多余的末尾0和不必要的小数点：

smart_labels <- function(x) {
  # 先把科学计数法转换为常规数字格式
  x_formatted <- format(x, scientific = FALSE, trim = TRUE)
  # 用正则表达式移除末尾的0和无意义的小数点
  gsub("\\.?0+$", "", x_formatted)
}

然后把这个函数用到scale_x_log10的labels参数里，完整的可运行代码如下：

library(ggplot2)
set.seed(123) # 设置随机种子让结果可复现
df = data.frame(x = c(1:10 %o% 10^(-3:2)), y = rnorm(60))

ggplot(df, aes(x=x, y=y)) + 
  geom_point() + 
  scale_x_log10(labels = smart_labels)

为什么这个方法能解决问题？ #

• 第一步用format(x, scientific = FALSE)彻底关闭科学计数法，确保所有数字都以常规格式展示；
• 第二步的正则表达式\\.?0+$会精准匹配两种冗余情况：要么是小数点后跟着一串0（比如0.100），要么是整数后面的小数点和0（比如100.00），然后把这些多余部分直接删掉，正好得到你想要的简洁格式。

对比之前的方法：

• 使用labels=comma不仅会保留多余小数位，还会给大数字自动加逗号（如果不需要这个效果的话反而添乱）；
• Ben的plain函数只是关闭了科学计数法，但没处理末尾的冗余0，所以小于1的数字还是会显示成0.10这类格式。

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