如何在两种不同类型的geom ggplot2中创建图例

library(ggplot2)

# 创建数据集
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y1 = c(1, 4, 9, 16, 25),
  y2 = c(1, 2, 3, 4, 5)
)

# 创建散点图层
scatter <- ggplot(data, aes(x, y1)) +
  geom_point()

# 创建线图层
line <- ggplot(data, aes(x, y2)) +
  geom_line()

# 为散点图层指定颜色，并创建图例
scatter_legend <- scatter +
  scale_fill_manual(values = c("red")) +
  guides(fill = guide_legend(title = "散点图"))

# 为线图层指定颜色，并创建图例
line_legend <- line +
  scale_color_manual(values = c("blue")) +
  guides(color = guide_legend(title = "线图"))

# 将两个图层合并
plot <- scatter_legend + line_legend

# 显示图形
print(plot)