ggplot -两个图例框？

library(ggplot2)

# 创建数据集
data <- data.frame(
  x = c(1, 2, 3, 4),
  y = c(1, 4, 9, 16),
  group1 = c("A", "A", "B", "B"),
  group2 = c("C", "D", "C", "D")
)

# 创建ggplot对象
p <- ggplot(data, aes(x, y, color = group1, shape = group2)) +
  geom_point(size = 3)

# 定义图例框的标签和颜色
p <- p + scale_color_manual(values = c("A" = "red", "B" = "blue"))
p <- p + scale_shape_manual(values = c("C" = 16, "D" = 17))

# 设置图例框的位置和样式
p <- p + guides(color = guide_legend(title = "Group 1"),
                shape = guide_legend(title = "Group 2"))

# 显示图形
print(p)