如何调整ggplot堆叠系数图：添加水平线与右置标签

以下是针对需求的具体实现步骤和代码：

1. 准备示例数据 #

先模拟符合场景的数据集（可替换为你的真实数据）：

library(ggplot2)
set.seed(123)

# 生成包含行业、国家、系数及置信区间的数据集
df <- expand.grid(
  sector = factor(
    c("Agriculture", "Livestock", "Business", "Wage Labor"),
    levels = c("Agriculture", "Livestock", "Business", "Wage Labor")
  ),
  country_name = c("Country A", "Country B", "Country C", "Country D")
)
df$estimate <- rnorm(nrow(df), mean = 0, sd = 1)
df$lower <- df$estimate - 0.5
df$upper <- df$estimate + 0.5

2. 核心绘图代码 #

实现类别上方水平线和右侧国家标签两个需求：

# 计算每个行业的水平线位置（在该行业所有误差线的上方）
sector_y_max <- aggregate(upper ~ sector, data = df, FUN = max)
sector_y_max$y_line <- sector_y_max$upper + 0.2

# 计算每个行业在x轴的左右边界（适配离散轴的宽度）
sector_x_pos <- data.frame(
  sector = levels(df$sector),
  x_start = seq_along(levels(df$sector)) - 0.45,
  x_end = seq_along(levels(df$sector)) + 0.45
)
sector_y_max <- merge(sector_y_max, sector_x_pos, by = "sector")

# 生成最终图形
ggplot(df, aes(x = sector, y = estimate)) +
  # 绘制点和置信区间
  geom_pointrange(aes(ymin = lower, ymax = upper), position = position_dodge(width = 0.8)) +
  # 添加行业上方的水平线
  geom_segment(
    data = sector_y_max,
    aes(x = x_start, xend = x_end, y = y_line, yend = y_line),
    color = "black", size = 0.8
  ) +
  # 在点范围右侧显示国家名称标签
  geom_text(
    aes(label = country_name, y = estimate),
    position = position_dodge(width = 0.8),
    hjust = -0.1, size = 3.5
  ) +
  # 调整y轴范围，避免标签被截断
  ylim(min(df$lower), max(sector_y_max$y_line) + 0.5)

关键细节说明 #

• 类别水平线：通过geom_segment绘制，先计算每个行业的x轴区间（离散轴的左右边界）和水平线的y位置（避开该行业的所有误差线），确保水平线与x轴对应行业等长。
• 右侧标签：使用geom_text的hjust = -0.1参数将标签定位在点的右侧，配合position_dodge保证标签与对应的点区间对齐，最后调整y轴范围防止标签被截断。

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