R语言geom_bar分组柱状图标签位置修正技术求助

我帮你排查了代码里的问题，你的分组柱状图标签位置不对，主要是因为geom_text没有和柱状图保持一致的分组映射，以及位置参数设置得不合适。下面是具体的修改点和完整的修正代码：

关键修改点 #

• 给标签指定数据源并对齐分组映射：你的geom_text没有明确指定data = df1，也没把source加入映射，导致标签无法和分组柱子对应。需要在geom_text里加上data = df1，并在aes中添加fill = source（或group = source），让标签跟着每个分组柱子走。
• 匹配position_dodge的宽度：柱状图默认的宽度是0.9，所以position_dodge的参数要设为0.9，才能和柱子的位置完全对齐，之前用1.5会导致标签偏移。
• 调整标签的y轴位置：原来的y值计算可以简化，基于柱状图的实际高度再加一点偏移，确保标签在柱子顶部上方，不会重叠。
• 避免直接引用全局变量：所有映射都用数据框的列名，不要用df1$xxx这种写法，让代码更规范。

修改后的完整代码 #

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

# 生成数据（保持你的原代码）
df1 <- data.frame(month = c("2017-10-01", "2017-10-01", "2017-10-01", "2017-11-01", "2017-11-01", "2017-11-01", "2017-12-01", "2017-12-01", "2017-12-01", "2018-01-01", "2018-01-01", "2018-01-01", "2018-02-01", "2018-02-01", "2018-02-01", "2018-03-01", "2018-03-01", "2018-03-01"),
                 source = c("a", "b", "c", "a", "b", "c", "a", "b", "c", "a", "b", "c", "a", "b", "c", "a", "b", "c"),
                 value1 = c(sample (c(1000L:4000L),18, replace = FALSE)),
                 stringsAsFactors = FALSE )
df1$month <- as.Date(as.character(df1$month, format = "%Y%m$d"))
df1$month <- as.Date(format(df1$month, "%Y-%m-01"))
df1 <- arrange(df1, month)

df2 <- data.frame(month = c("2017-10-01", "2017-11-01", "2017-12-01", "2018-01-01", "2018-02-01", "2018-03-01"),
                 value2 = c(sample (c(5000000L:6000000L),6, replace = FALSE)),
                 stringsAsFactors = FALSE )
df2$month <- as.Date(as.character(df2$month, format = "%Y%m$d"))
df2$month <- as.Date(format(df2$month, "%Y-%m-01"))
df2 <- arrange(df2, month)

# 修正后的绘图代码
ggplot() +
  geom_bar(data = df1, aes(month, value1*5000000/5000, fill = source), stat="identity", position = "dodge") +
  geom_point(data = df2, aes(month, value2), color = "blue")+
  geom_line(data = df2, aes(month, value2), group = 1, color = "blue") +
  labs(x = "month", y="value2 (line)") +
  scale_y_continuous(sec.axis = sec_axis(~.*5000/5000000, name = "value1 (bars)"), labels= format_format(big.mark = ".", decimal.mark = ",", scientific = FALSE)) +
  scale_x_date(labels = date_format("%Y-%b"), breaks = seq(from = min(df2$month), to = max(df2$month), by = "month")) +
  scale_fill_manual(values= c("darkseagreen4","darkseagreen", "darkseagreen3")) + # 移除多余的颜色（source仅3个类别）
  # 修正后的geom_text：指定数据源、对齐分组映射、调整位置参数
  geom_text(data = df1, aes(label=value1, x = month, y = value1*5000000/5000 + 100000, fill = source), 
            position = position_dodge(0.9), vjust = 0.5, size = 3, color = "black") +
  geom_text(data = df2, aes(label=value2, x = month, y = value2), vjust = 1.5, size = 3, color = "grey47") +
  theme_light()

另外注意到你原来的scale_fill_manual写了4个颜色，但source只有a、b、c三个类别，所以我去掉了多余的颜色，避免触发警告。

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