R语言ggplot设置百分比刻度时数值超1500%，如何调整为100%量程？

问题原因 #

你当前代码出现Y轴百分比超过100%的核心原因是：geom_bar()默认统计每个分类的样本计数（即默认参数stat="count"），而scales::percent_format()默认将数值1对应为100%，比如某分类的样本计数为16时，就会被转换为1600%显示。

解决方法 #

方法1：直接在ggplot调用内计算占比（无需提前处理数据）

调整映射规则，让Y轴直接读取各组占总样本的比例值即可：

ggplot(numbers,aes(x = var, y = ..prop.., group = 1)) + 
  geom_bar(position="dodge",fill="darkgreen") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1), limits = c(0, 1))

参数说明：

• ..prop..是ggplot内置统计量，会自动计算每组占总样本的比例
• group=1指定所有分类共用总样本作为占比计算的分母，避免单组独立计算占比均为100%的问题
• limits=c(0,1)强制Y轴量程固定为0到100%

方法2：提前汇总数据计算占比（适配更复杂的统计逻辑）

如果需要自定义统计规则，可以先对原始数据做汇总再绘图：

library(dplyr)
# 先汇总计算每个分类的样本量和占总样本的比例
numbers_summary <- numbers %>%
  count(var) %>%
  mutate(prop = n / sum(n))

# 绘图
ggplot(numbers_summary, aes(x = var, y = prop)) +
  geom_col(position="dodge", fill="darkgreen") +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1), limits = c(0, 1))

这里用geom_col()代替geom_bar()，因为前者默认直接读取给定的Y轴数值，不需要额外做计数统计。

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