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

在ggplot2中，可以使用scale_fill_manual()和scale_color_manual()函数来创建自定义图例。这两个函数允许我们手动指定颜色和填充样式，并将其映射到图例中。

首先，我们需要创建两个不同类型的geom图层，并为它们分配不同的颜色或填充样式。例如，我们可以使用geom_point()创建散点图层，使用geom_line()创建线图层。

接下来，我们可以使用scale_fill_manual()和scale_color_manual()函数来为每个图层指定颜色或填充样式，并将其映射到图例中。这两个函数的参数values接受一个颜色向量，我们可以在其中指定所需的颜色或填充样式。

下面是一个示例代码：

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)

在上面的示例中，我们创建了一个包含散点图和线图的图形。我们使用scale_fill_manual()和scale_color_manual()函数为散点图和线图分别指定了红色和蓝色，并创建了相应的图例。最后，我们将两个图层合并，并使用print()函数显示图形。

这是一个简单的示例，你可以根据自己的需求进行修改和扩展。希望对你有帮助！