如何使用ggplot2为12个类别各绘制含3个数值的水平线？

你需要的效果可以通过组合多个geom函数实现，没有单一geom能同时完成水平线绘制+数值标注，但结合以下两种geom就能满足需求：

方案1：绘制从x轴起点到数值位置的水平线+标注数值 #

这种方案的水平线仅延伸至对应数值的位置，更直观展示数值对应的长度：

library(ggplot2)

# 构造示例数据（匹配你的数据结构）
data <- data.frame(
  Category = rep(paste0("Category_", 1:12), each = 3),
  Audience = rep(paste0("Audience_", 1:3), 12),
  Value = runif(36, 2, 8) # 用随机数模拟你的实际数值
)

data %>%
  ggplot(aes(y = Audience)) +
  # 绘制水平线：从x=0延伸到对应Value的位置
  geom_segment(aes(x = 0, xend = Value, yend = Audience), 
               color = "gray60", linetype = "solid") +
  # 在数值位置标注具体Value
  geom_text(aes(x = Value, label = round(Value, 1)), 
            hjust = -0.2, size = 3.5, color = "black") +
  # 按Category分面
  facet_wrap(~Category, ncol = 3) + # 可调整ncol控制列数
  # 扩展x轴范围，避免数值标注被截断
  xlim(0, max(data$Value) * 1.3) +
  labs(x = "数值", y = "受众群体") +
  theme_bw()

方案2：绘制贯穿整个面板的水平线+标注数值 #

如果希望水平线贯穿每个分面的整个宽度，可使用geom_hline：

data %>%
  ggplot(aes(x = Value, y = Audience)) +
  # 绘制贯穿面板的水平线（需将Audience转为数值型作为y轴截距）
  geom_hline(aes(yintercept = as.numeric(factor(Audience))), 
             color = "gray60", linetype = "dashed") +
  # 在数值位置标注Value，调整垂直位置避免和水平线重叠
  geom_text(aes(label = round(Value, 1)), 
            vjust = 1.8, size = 3.5, color = "black") +
  # 按Category分面
  facet_wrap(~Category, ncol = 3) +
  labs(x = "数值", y = "受众群体") +
  theme_bw()

关键说明 #

• geom_segment/geom_hline负责绘制水平线，根据视觉需求选择其一
• geom_text（或geom_label，带背景框）负责标注数值，通过hjust/vjust调整标注位置，避免遮挡
• 分面时可通过ncol/nrow参数控制分面的排列方式，适配12个类别的展示

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