使用ggplot2的geom_area按分类变量填充曲线下区域的实现问题

直接在aes()里添加fill = space出现图形异常，是ggplot2的两个内置机制叠加导致的：

• geom_area会对每个fill分组的独立数据子集，分别计算多边形轮廓：原始数据里同个space值对应的时间点是离散、不连续的，函数会跨间隔把同组的散点直接连线成面积，完全破坏了原本连续的曲线走向
• geom_area默认使用堆叠的位置计算逻辑，会对同一x位置下不同fill分组的y值做累加，进一步扭曲原本的曲线高度比例

要实现「保持原始连续曲线的形状完全不变，仅按每个时间分段对应的space值，给曲线下方的填充区域匹配对应颜色」，需要先对原始数据做简单的边界补全处理，再调整绘图参数即可：

1. 预处理原始数据，在相邻两个space值发生切换的时间点中间补全衔接点，保证每个space分组对应的x区间是连续的，避免跨点连线生成错误的多边形形状
2. 绘制时关闭geom_area的堆叠逻辑，保证每个分段的y值和原始曲线完全匹配

library(ggplot2)
library(dplyr)

# 加载原始示例数据
data <- data.frame(
  time = seq(1,10),
  activity = c(43.59675 ,18.15803 ,26.59981 ,72.64358 ,20.68794, 86.13841, 47.64718, 83.94334 ,32.33138, 81.70798),
  space = c(1 ,3 ,3 ,1 ,2 ,3 ,2 ,2 ,3 ,1)
)
data$space <- as.character(data$space)

# 数据预处理：补充分段衔接点
data_processed <- data %>%
  arrange(time) %>%
  mutate(
    next_time = lead(time),
    next_activity = lead(activity)
  ) %>%
  bind_rows(
    # 保留原始观测点
    select(., time, activity, space),
    # 生成相邻分段的边界衔接点，避免同组跨间隔连线
    select(., time = next_time, activity = next_activity, space) %>%
      filter(!is.na(space))
  ) %>%
  arrange(time)

# 绘制目标效果的图形
ggplot(data_processed, aes(x = time, y = activity, fill = space)) +
  # 关闭堆叠逻辑，保证曲线形状和原始一致
  geom_area(position = "identity", alpha = 0.7) +
  # 叠加黑色轮廓线，强化曲线的连续感
  geom_line(color = "black", linewidth = 0.8) +
  # 可选：自定义填充配色
  scale_fill_brewer(palette = "Set2", name = "空间分类")

调整后生成的图形，整体曲线的高度、走向和最初绘制的纯黑色面积图完全一致，仅填充区域会按照对应时间点的space分类自动匹配颜色，不会出现之前的形状扭曲、面积错位问题。

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