ggplot2双Y轴分面图问题：降水数据仅显示匹配生存数据的点

问题1：降水数据仅显示与生存数据匹配的点 #

这是因为ggplot默认会自动匹配两个数据集的变量并过滤，解决核心是给降水图层单独指定数据集，避免继承主数据集的过滤逻辑：

# 主图层用生存数据集
ggplot(data = survival_df, aes(x = date, y = survival_rate)) +
  geom_point() +
  # 降水图层明确指定数据集，不继承主数据的过滤
  geom_line(data = precipitation_df, aes(x = date, y = precipitation)) +
  facet_wrap(~site)

如果分面变量site在降水数据集中存在，要确保降水数据的site涵盖所有分面站点，这样每个分面都会显示完整的19个降水点。

问题2：site标签未置于外侧 #

通过facet_wrap的strip.position参数指定标签位置，配合theme优化样式：

# 将标签放在右侧外侧，也可设为top/bottom/left
facet_wrap(~site, strip.position = "right") +
# 可选：调整标签样式增强可读性
theme(strip.text = element_text(size = 10, face = "bold"),
      strip.background = element_rect(fill = "#f0f0f0"))

若使用facet_grid，则用switch参数实现：

facet_grid(.~site, switch = "x") # 将x轴标签移至外侧

问题3：降水线条颜色无法修改为蓝色 #

关键是不要把颜色参数放在aes()内部——放在aes()里会被当作变量映射，而非直接设置颜色：

# 错误写法（会把"blue"识别为离散变量值）
geom_line(data = precipitation_df, aes(x = date, y = precipitation, color = "blue"))
# 正确写法（直接设置颜色，脱离aes映射）
geom_line(data = precipitation_df, aes(x = date, y = precipitation), color = "blue")

如果需要给降水线条加图例说明，可手动映射颜色并指定值：

geom_line(data = precipitation_df, aes(x = date, y = precipitation, color = "月度降水")) +
scale_color_manual(values = c("月度降水" = "blue"))

完整示例代码 #

假设数据集结构如下：

# 生存数据集示例
survival_df <- data.frame(
  date = seq.Date(as.Date("2023-01-01"), as.Date("2023-08-01"), by = "month"),
  survival_rate = runif(8, 0.5, 1),
  site = rep(c("A", "B"), each = 4)
)
# 降水数据集示例
precipitation_df <- data.frame(
  date = seq.Date(as.Date("2022-06-01"), as.Date("2023-12-01"), by = "month"),
  precipitation = runif(19, 10, 100),
  site = rep(c("A", "B"), length.out = 19)
)

# 完整绘图代码
ggplot(data = survival_df, aes(x = date, y = survival_rate)) +
  geom_point(size = 2, color = "darkred") +
  # 缩放降水值适配存活率y轴范围，设置蓝色线条
  geom_line(data = precipitation_df, aes(x = date, y = precipitation/100), color = "blue", linetype = "dashed") +
  facet_wrap(~site, strip.position = "right") +
  labs(x = "日期", y = "存活率/标准化降水") +
  theme_classic() +
  theme(strip.text = element_text(face = "bold"))

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