如何移除ggplot分面图中整数刻度的小数部分？

开发者阿泽

2026-7-6

解决方案：自动处理分面y轴的百分比刻度格式

不用手动枚举所有刻度，通过自定义标签格式化函数就能实现需求，代码更简洁且通用：

方法1：自定义基础标签函数

写一个函数判断百分比数值是否为整数，自动切换显示格式：

custom_percent <- function(x) {
  # 转成百分比数值
  pct_value <- x * 100
  # 整数百分比显示为「X%」，非整数保留一位小数显示为「X.X%」
  ifelse(pct_value %% 1 == 0, 
         sprintf("%d%%", pct_value), 
         sprintf("%.1f%%", pct_value))
}

替换原代码中的刻度标签设置，直接应用到分面图：

set.seed(123)
dat_freq_weight <- data.frame(
  feature = c("A", "B", "C", "D", "E"),
  frequency = c(0.1, 0.05, 0.015, 0.0031, 0.0205),
  group = c("Group1", "Group2", "Group1", "Group2", "Group1")
)

library(ggplot2)
p <- ggplot(data = dat_freq_weight, aes(x = reorder(feature, -frequency), y = frequency)) +
  scale_y_continuous(labels = custom_percent) +  # 替换为自定义标签函数
  geom_bar(stat = "identity", fill = "lightblue", color = "blue", width = 0.3) +
  facet_wrap(~ group, scales = "free") +
  coord_flip() +
  theme(strip.text = element_text(face = "bold"), 
        panel.grid.major.y = element_blank(),
        panel.grid.minor = element_blank()) +
  labs(x = NULL, y = "Relative frequencies") 

print(p)

方法2：利用scales包简化写法

借助scales::number_format动态调整精度，代码更简洁：

custom_percent <- scales::number_format(
  suffix = "%",
  scale = 100,
  # 自动判断精度：整数百分比用1，非整数用0.1
  accuracy = function(x) ifelse(x * 100 %% 1 == 0, 1, 0.1)
)

直接将这个函数代入scale_y_continuous的labels参数即可，效果和方法1完全一致。