ggplot2中基于年度均值上下的非精确匹配条件着色问题

我明白你的问题啦——想给折线图里的点按是否高于年度均值上色，但之前的操作把折线拆成了好几段，对吧？这多半是因为你把颜色映射放到了全局的aes()里，导致折线跟着颜色分组拆分了。下面是完整的解决方案：

第一步：预处理数据，计算年度均值并创建分组标记 #

首先我们需要先算出每个年份的均值，再给每个数据点标记它是高于还是低于对应年份的均值。这里用dplyr来处理数据会很方便：

# 加载需要的包
library(ggplot2)
library(dplyr)
library(lubridate) # 用来提取年份，如果你的数据已经有年份列可以不用

# 假设你的数据框名为df，包含日期列（date）和数值列（O）
df_processed <- df %>%
  # 从日期中提取年份（如果数据已经有year列可跳过这步）
  mutate(year = year(date)) %>%
  # 按年份分组，计算每个年份的O的均值
  group_by(year) %>%
  mutate(yearly_mean_O = mean(O, na.rm = TRUE)) %>%
  ungroup() %>%
  # 创建标记：判断当前点的O是否高于年度均值
  mutate(relative_to_mean = ifelse(O > yearly_mean_O, "高于年度均值", "低于年度均值"))

如果你的“年度均值”是指整个数据集的年度平均（而非分年份的均值），那可以简化成：

df_processed <- df %>%
  mutate(overall_yearly_mean = mean(O, na.rm = TRUE),
         relative_to_mean = ifelse(O > overall_yearly_mean, "高于年度均值", "低于年度均值"))

第二步：绘制折线图，避免折线拆分 #

核心要点是：折线不要跟着颜色分组，所以我们把颜色映射只放在geom_point()的aes()里，折线用统一颜色保持连贯：

ggplot(df_processed, aes(x = date, y = O)) +
  # 先画折线，用统一的灰色保持整体连贯性
  geom_line(color = "gray50", linewidth = 1) +
  # 再画点，按之前创建的标记变量着色
  geom_point(aes(color = relative_to_mean), size = 2.5) +
  # 自定义颜色，你可以换成自己喜欢的配色
  scale_color_manual(values = c("高于年度均值" = "#e74c3c", "低于年度均值" = "#3498db")) +
  # 添加标题和标签
  labs(
    title = "O值随日期变化（按年度均值着色）",
    x = "日期",
    y = "O值",
    color = "与年度均值对比"
  ) +
  # 用简洁的主题
  theme_minimal()

为什么之前会出现拆分的图形？ #

如果之前你把color = relative_to_mean放到了ggplot()的全局aes()里，geom_line()会自动按这个颜色变量分组，把折线拆分成“高于均值”和“低于均值”两段，就会出现断开的折线。把颜色映射只放在点的图层里，就能保证折线是完整的，同时点按条件着色啦。

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