ggplot2技巧：仅为单个分面网格添加水平线

要给你的分面散点图里仅某一个分面添加水平线，核心是让水平线图层只关联目标分面对应的分组数据，而不是使用全局数据集。这里有两种简单且常用的实现方式：

方法1：创建目标分面的水平线数据集 #

最直观的方式是单独构建一个只包含目标分面信息的小数据框，将其传给geom_hline的data参数，ggplot会自动匹配分面变量，只在对应分面显示线条。

比如，假设你想给type="a"的分面添加一条y=10的红色虚线：

# 构建仅包含目标分面的水平线数据
hline_data <- data.frame(type = "a", yintercept = 10)

# 绘制图形
ggplot(X, aes(x, y)) +
  geom_point(aes(color = group)) +
  facet_grid(. ~ type) +
  geom_hline(data = hline_data, aes(yintercept = yintercept), color = "red", linetype = "dashed")

方法2：直接筛选目标分面的数据 #

如果你不想额外创建数据框，也可以直接在geom_hline中用subset筛选出目标分面的数据集，同样能实现仅在指定分面显示线条：

ggplot(X, aes(x, y)) +
  geom_point(aes(color = group)) +
  facet_grid(. ~ type) +
  # 仅在type="a"的分面显示y=10的蓝色水平线
  geom_hline(aes(yintercept = 10), data = subset(X, type == "a"), color = "blue")

扩展：给不同分面添加不同的线 #

如果需要给多个分面分别添加不同的水平线，只需要在水平线数据框中添加对应分面和截距的记录即可：

# 定义每个分面对应的水平线参数
hline_data <- data.frame(
  type = c("a", "b"),
  yintercept = c(10, 15),
  line_color = c("red", "blue")
)

ggplot(X, aes(x, y)) +
  geom_point(aes(color = group)) +
  facet_grid(. ~ type) +
  geom_hline(data = hline_data, aes(yintercept = yintercept, color = line_color), linetype = "dashed") +
  scale_color_identity() # 直接使用数据框中定义的颜色值

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