在同一GGplot上绘制多个数据集及其置信区间有困难。包含的数据帧

library(ggplot2)

# 创建数据集1
data1 <- data.frame(
  x = 1:10,
  y = c(1, 3, 4, 6, 8, 9, 8, 6, 4, 2),
  ci_lower = c(0.5, 2, 3, 5, 7, 8, 7, 5, 3, 1),
  ci_upper = c(1.5, 4, 5, 7, 9, 10, 9, 7, 5, 3)
)

# 创建数据集2
data2 <- data.frame(
  x = 1:10,
  y = c(2, 4, 5, 7, 9, 10, 9, 7, 5, 3),
  ci_lower = c(1.5, 3, 4, 6, 8, 9, 8, 6, 4, 2),
  ci_upper = c(2.5, 5, 6, 8, 10, 11, 10, 8, 6, 4)
)

# 合并数据集
combined_data <- rbind(data1, data2)

# 绘制图形
ggplot(combined_data, aes(x = x, y = y)) +
  geom_line(aes(color = "Data 1")) +
  geom_ribbon(aes(ymin = ci_lower, ymax = ci_upper, fill = "Data 1"), alpha = 0.2) +
  geom_line(data = data2, aes(color = "Data 2")) +
  geom_ribbon(data = data2, aes(ymin = ci_lower, ymax = ci_upper, fill = "Data 2"), alpha = 0.2) +
  labs(title = "Multiple Data Sets with Confidence Intervals",
       x = "X",
       y = "Y") +
  scale_color_manual(values = c("Data 1" = "blue", "Data 2" = "red")) +
  scale_fill_manual(values = c("Data 1" = "blue", "Data 2" = "red"))