如何在百分比直方图上添加百分比？代码问题排查

1. 原始数据构造错误 #

你的data.frame中各列长度不匹配：type仅3个值，loss有12个，label有4个，这会直接导致R报错无法生成有效数据框。首先要修正数据，确保每列长度一致，比如给每个观测分配对应的type和label，示例修正后的数据：

data <- data.frame(
  type = rep(c("A", "B", "C"), each = 4),
  loss = c(1.7,2.2,2.5,0.8,3.1,4.7,0.5,1.5,1.7,0.7,1.4,1.7),
  label = rep(c("1","2","3","4"), times = 3)
)

2. 百分比计算逻辑偏差 #

你按type分组计算总loss，但结合后续position="fill"做堆叠百分比图的需求，若要展示每个label下不同type的占比，应该按label分组计算总loss；如果是展示每个type下不同label的占比，则保持按type分组即可。这里以“每个label下各type的堆叠占比”为例，修正计算逻辑：

library(dplyr)
library(ggplot2)

data <- data %>% 
  group_by(label) %>%  # 按x轴的label分组，计算该分组下的总loss
  mutate(total_loss = sum(loss)) %>% 
  mutate(freq = round(100 * loss / total_loss, 2)) %>%
  ungroup()  # 取消分组避免后续ggplot的分组冲突

3. geom_text的位置与映射错误 #

• 直接用label = paste0(data$freq,"%")会导致标签重复、位置错乱，必须在aes内映射标签，让ggplot自动匹配对应位置的数值
• 使用position="fill"时，geom_text必须设置相同的position参数，同时通过vjust调整标签在堆叠条内的垂直位置（比如设为0.5让标签居中）

修正后的完整代码：

data <- data.frame(
  type = rep(c("A", "B", "C"), each = 4),
  loss = c(1.7,2.2,2.5,0.8,3.1,4.7,0.5,1.5,1.7,0.7,1.4,1.7),
  label = rep(c("1","2","3","4"), times = 3)
)

data <- data %>% 
  group_by(label) %>% 
  mutate(total_loss = sum(loss)) %>% 
  mutate(freq = round(100 * loss / total_loss, 2)) %>%
  ungroup()

ggplot(data, aes(x = label, y = loss, fill = type)) +
  geom_bar(stat = "identity", position = "fill", alpha = 0.9) +
  scale_y_continuous(labels = scales::percent) +
  geom_text(aes(label = paste0(freq, "%")), 
            position = position_fill(vjust = 0.5), 
            size = 3) +
  theme_bw() +
  theme(panel.grid = element_blank(),
        axis.ticks.length = unit(0.5,'cm'),
        legend.position = "top")

关键问题总结 #

• 数据框各列长度必须严格一致，否则无法生成有效数据集
• 百分比计算的分组依据要和图表需求匹配，明确是按x轴分组还是按填充分组
• geom_text需与geom_bar使用相同的position参数，且标签要在aes内映射，避免直接引用外部数据导致的位置错误

内容的提问来源于stack exchange，提问作者吳海濱