R ggplot2：条形图+折线图组合中geom_text标签位置错乱求助

嘿，我一眼就看出你遇到的问题啦——你的标签之所以排成一条直线，主要是两个原因：一是没给geom_text匹配条形图的错位设置，二是没区分条形图和折线图的数据集及坐标缩放。咱们一步步来修正：

问题出在哪？ #

• 你的条形图用了position_dodge()来错开a和b的条形，但geom_text既没指定对应数据集，也没设置相同的错位参数，导致所有标签都挤在每个分类的正中间，自然排成直线。
• 另外，geom_text默认用了整个df1，包含了source=c的数据，但c的数值已经做了value*5000/2000的缩放，你直接用原始value当y轴位置，c的标签肯定跑错地方了。

修正后的完整代码 #

咱们分开处理条形图和折线图的标签，确保每个标签都对应正确的元素：

library(dplyr) 
library(ggplot2) 
library(scales) 

# 先固定随机种子，方便复现结果
set.seed(123)
df1 <- data.frame(
  cat = c("category1", "category2", "category3", "category1", "category2", "category3", "category1", "category2", "category3"), 
  source = c("a", "a", "a", "b", "b", "b", "c", "c", "c"), 
  value = sample(c(1000L:6000L),9, replace = FALSE), 
  stringsAsFactors = FALSE
)

ggplot(df1) + 
  # 绘制条形图：指定dodge宽度，方便后续对齐标签
  geom_bar(data = filter(df1, source %in% c("a", "b")), 
           aes(cat, value, fill = source), 
           stat="identity", 
           position = position_dodge(width = 0.9)) + 
  # 给条形图加标签：匹配条形图的数据集和dodge参数，把标签放在条形上方
  geom_text(data = filter(df1, source %in% c("a", "b")),
            aes(cat, value, label = value, fill = source),
            vjust = -0.5, size = 3,
            position = position_dodge(width = 0.9)) + # 和条形图的dodge宽度保持一致
  # 绘制折线图的点
  geom_point(data = filter(df1, source == "c"), 
             aes(cat, value*5000/2000, color = source))+ 
  # 绘制折线图的线
  geom_line(data = filter(df1, source == "c"), 
            aes(cat, value*5000/2000, color = source , group = source)) + 
  # 给折线图加标签：用和折线一致的缩放后y值，放在点的上方
  geom_text(data = filter(df1, source == "c"),
            aes(cat, value*5000/2000, label = value, color = source),
            vjust = -1, size = 3) +
  # 轴和标签设置
  labs(x= "categories", y= "a and b (bars)") + 
  scale_y_continuous(
    sec.axis = sec_axis(~.*2000/5000, name = "c (line)"), 
    labels= format_format(big.mark = ".", decimal.mark = ",", scientific = FALSE)
  ) + 
  scale_fill_manual(values= c("darkseagreen4", "darkseagreen3")) +
  scale_color_manual(values = "darkred") + # 给c的元素统一设置颜色，更显眼
  theme_light()

核心调整说明 #

• 条形图标签：

  • 只针对source=a/b的数据集添加标签，避免混入c的数据
  • 设置position = position_dodge(width = 0.9)，和geom_bar的错位宽度完全匹配，这样标签会跟着条形左右错开，不再堆在中间
  • 把vjust设为-0.5，让标签显示在条形顶部上方，不会遮挡条形本身

• 折线图标签：

  • 单独针对source=c的数据集添加标签
  • y轴位置使用和折线图相同的缩放值value*5000/2000，保证标签和折线点对齐
  • vjust=-1让标签显示在点的上方，视觉上更清晰

这样调整后，每个标签都会乖乖呆在对应的条形或折线点的正确位置啦～

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