ggplot2:当一个图有错误条而另一个没有错误条时，如何将两个图合并为一个

library(ggplot2)

# 创建包含错误条的数据集
data_with_error <- data.frame(
  x = c(1, 2, 3),
  y = c(1, 2, 3),
  group = c("A", "B", "C"),
  error = c(0.1, 0.2, 0.3)
)

# 创建不包含错误条的数据集
data_without_error <- data.frame(
  x = c(1, 2, 3),
  y = c(4, 5, 6),
  group = c("A", "B", "C")
)

# 创建第一个图形对象，包含错误条
plot_with_error <- ggplot(data_with_error, aes(x = x, y = y, group = group)) +
  geom_point() +
  geom_errorbar(aes(ymin = y - error, ymax = y + error)) +
  labs(title = "图1：包含错误条的图")

# 创建第二个图形对象，不包含错误条
plot_without_error <- ggplot(data_without_error, aes(x = x, y = y, group = group)) +
  geom_point() +
  labs(title = "图2：不包含错误条的图")

# 将两个图形对象合并为一个
combined_plot <- plot_with_error + plot_without_error +
  plot_layout(ncol = 2)  # 设置图形布局为两列

# 显示合并后的图形
print(combined_plot)