如何使用ggplot 2制作两个图例？

ggplot2是一个用于数据可视化的R语言包，它提供了丰富的功能和灵活的图形语法。在ggplot2中，制作两个图例可以通过以下步骤实现：

1. 导入ggplot2包：在R中使用library(ggplot2)命令导入ggplot2包。
2. 准备数据：首先，需要准备包含需要绘制的数据的数据框。假设我们有一个数据框data，其中包含两个变量x和y。
3. 创建图形对象：使用ggplot()函数创建一个基本的图形对象，并指定数据框和变量。

p <- ggplot(data, aes(x = x, y = y))

1. 添加图层：使用geom_函数添加具体的图层，例如geom_point()添加散点图层。

p <- p + geom_point()

1. 创建第一个图例：使用scale_函数创建第一个图例。例如，使用scale_color_manual()函数创建一个手动设置颜色的图例。

p <- p + scale_color_manual(values = c("red", "blue"), name = "Legend 1")

其中，values参数指定图例的颜色，name参数指定图例的名称。

1. 创建第二个图例：使用guides()函数创建第二个图例。例如，使用guides(color = guide_legend())函数创建一个颜色图例。

p <- p + guides(color = guide_legend(title = "Legend 2"))

其中，color参数指定要添加图例的变量，title参数指定图例的标题。

1. 显示图形：使用print()函数显示图形。

print(p)

完整的代码如下：

library(ggplot2)

# 准备数据
data <- data.frame(x = c(1, 2, 3, 4, 5), y = c(2, 4, 6, 8, 10))

# 创建图形对象
p <- ggplot(data, aes(x = x, y = y))

# 添加图层
p <- p + geom_point()

# 创建第一个图例
p <- p + scale_color_manual(values = c("red", "blue"), name = "Legend 1")

# 创建第二个图例
p <- p + guides(color = guide_legend(title = "Legend 2"))

# 显示图形
print(p)

这样，就可以使用ggplot2制作包含两个图例的图形了。在这个例子中，我们使用geom_point()函数添加了散点图层，并使用scale_color_manual()函数创建了一个手动设置颜色的图例，同时使用guides()函数创建了一个颜色图例。你可以根据自己的需求修改图例的样式和位置。