ggplot多变量合并绘图求助：带均值与误差棒的时间-温度折线图

你的问题核心在于拆分两个数据集重复添加图层，导致ggplot无法统一管理分组美学映射，进而出现线条属性不匹配的问题。正确的做法是将两个数据集合并，通过新增的分组变量（如治疗类型）区分主动治疗/安慰剂组，让ggplot一次性处理所有曲线的映射逻辑。

步骤1：合并数据集 #

先给两个分组数据集添加标识列，再合并为一个完整数据集：

# 为两个数据集添加治疗类型标识
data3$treatment <- "主动治疗"
data4$treatment <- "安慰剂"
# 合并成统一数据集
combined_data <- rbind(data3, data4)

步骤2：重写绘图代码 #

利用合并后的数据集，通过colour区分手指类型，linetype区分治疗类型，同时用interaction(finger, treatment)确保每个手指+治疗的组合是独立曲线：

# 定义位置偏移（避免误差棒/点重叠）
pd <- position_dodge(0.2)

plot10 <- ggplot(combined_data, aes(x = time, y = temp,
                                   colour = finger,
                                   linetype = treatment,
                                   group = interaction(finger, treatment))) +
  # 绘制误差棒
  geom_errorbar(aes(ymin = temp - ci, ymax = temp + ci),
                colour = "black", width = 1, position = pd) +
  # 绘制折线
  geom_line(position = pd, size = 1) +
  # 绘制数据点
  geom_point(position = pd, size = 3, shape = 21, fill = "white") +
  theme_bw()

关键说明 #

1. 合并数据集后，所有分组逻辑（手指+治疗类型）通过ggplot的全局映射统一管理，避免了重复图层带来的属性冲突。
2. interaction(finger, treatment)确保每个“手指-治疗”组合被识别为独立的曲线分组，不会出现线条混淆。
3. 若你的data3/data4是原始观测数据而非汇总后的均值数据，需要先按time、finger、treatment分组计算均值和置信区间，示例代码（需加载dplyr包）：

library(dplyr)
summary_data <- combined_data %>%
  group_by(time, finger, treatment) %>%
  summarise(
    temp_mean = mean(temp),
    ci = sd(temp)/sqrt(n())  # 此处以标准误作为误差范围，可根据需求替换为置信区间计算方式
  )

之后绘图时将aes中的y = temp替换为y = temp_mean，误差棒的ymin/ymax对应temp_mean - ci/temp_mean + ci即可。

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