在ggplot2中为成对柱状图添加单个顶部标签的问题

你的代码主要存在三个核心问题：

1. 数据类型错误：persons和risk是字符型向量，ggplot2的y轴依赖数值型数据，直接使用字符型会导致绘图逻辑异常
2. geom_text参数缺失：未设置position = position_dodge()，标签无法与成对柱子对齐
3. 标签位置与数据筛选错误：未指定标签放置在每组柱子的顶部上方，也未正确筛选数据实现单组仅显示一个重复的risk值

修正后的完整代码 #

library(ggplot2)

# 修正数据类型：将persons和risk转为数值型
treat <- c(rep("Popcorn", 2), rep("Soda", 2), rep("Candy", 2))
eaten <- c(rep(c("Yes", "No"), 3))
persons <- as.numeric(c("20", "41", "12", "78", "37", "62"))
risk <- as.numeric(c("1", "1", "0.8", "0.8", "1.15", "1.15"))

dfx <- data.frame(treat, eaten, persons, risk)

# 计算每组treat的最大柱子高度，用于确定标签的y轴位置（加偏移避免贴在柱子上）
df_label <- aggregate(persons ~ treat + risk, data = dfx, max)
df_label$y_pos <- df_label$persons + 3

myplot <- ggplot(data = dfx, aes(x = treat)) +
  geom_bar(aes(y = persons, fill = eaten), stat = 'identity', position = position_dodge(width = 0.9)) +
  # 用筛选后的标签数据，设置居中对齐
  geom_text(data = df_label, aes(y = y_pos, label = risk), 
            position = position_dodge(width = 0.9), size = 4)

myplot

关键修正说明 #

• 转数值型：通过as.numeric()转换字符向量，解决y轴参数不兼容的报错问题
• 生成标签数据：用aggregate()提取每组的最大柱子高度，加上偏移量作为标签的y位置，确保标签显示在柱子上方
• 对齐标签：position_dodge(width = 0.9)与geom_bar的宽度参数保持一致，让标签居中在成对柱子的正上方
• 去重显示：aggregate()自动对每组的risk值去重，实现单组仅显示一个风险比值

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