如何去除ggplot2折线图Y轴刻度末尾的无效0？

嘿，我来帮你搞定这个Y轴刻度格式的问题！你已经正确指定了Y轴的刻度位置，但ggplot默认的标签格式化逻辑会自动补全末尾的0，导致出现0.050、0.010这类你不需要的格式。我们只需要通过scale_y_continuous的labels参数来控制标签的显示方式，就能轻松去掉那些无效的末尾0。

下面给你两种实用的解决方法：

方法一：使用scales包的number_format函数 #

scales包提供了专门用于格式化数值标签的工具，其中number_format的trim参数可以直接去除末尾的无效0和多余的小数点。记得先加载scales包哦：

library(scales)
library(tibble)
library(ggplot2)

tibble( timepoints = 1:100, alpha = 1 - exp(log(0.95)/(1:100)) ) %>% 
  ggplot( ., aes( x = timepoints, y = alpha ) ) + 
  geom_point() + 
  geom_line() + 
  scale_x_continuous( n.breaks = 6 ) + 
  scale_y_continuous( 
    breaks = c( 0.05, 0.01, 0.005, 0.001 ),
    labels = number_format(trim = TRUE)  # 核心参数：开启trim去除无效0
  ) + 
  theme( text = element_text(size=30) )

方法二：自定义格式化函数 #

如果你不想额外加载scales包，也可以自己写一个简单的格式化函数，利用R基础的format函数实现同样的效果：

library(tibble)
library(ggplot2)

# 自定义标签格式化函数，去除末尾无效0
custom_label_formatter <- function(x) {
  format(x, trim = TRUE, scientific = FALSE)
}

tibble( timepoints = 1:100, alpha = 1 - exp(log(0.95)/(1:100)) ) %>% 
  ggplot( ., aes( x = timepoints, y = alpha ) ) + 
  geom_point() + 
  geom_line() + 
  scale_x_continuous( n.breaks = 6 ) + 
  scale_y_continuous( 
    breaks = c( 0.05, 0.01, 0.005, 0.001 ),
    labels = custom_label_formatter
  ) + 
  theme( text = element_text(size=30) )

两种方法最终都会让Y轴刻度显示为你想要的0.05、0.01、0.005和0.001，完美去掉末尾的无效0！如果之后你还有其他格式调整需求，比如控制小数位数或者切换千分位分隔符，都可以在对应的格式化函数里调整参数哦。

内容的提问来源于stack exchange，提问作者Carlos Luis Rivera