R语言 给plot函数绘制的图添加图例不用颜色的直线分别表示男性、女性、合计

要给plot函数绘制的图添加图例，可以使用legend函数。

首先，我们需要先绘制男性、女性和合计的直线。假设男性的直线是红色，女性的直线是蓝色，合计的直线是绿色。

# 假设男性直线的数据为 x1 和 y1
x1 <- c(1, 2, 3, 4, 5)
y1 <- c(2, 4, 6, 8, 10)

# 假设女性直线的数据为 x2 和 y2
x2 <- c(1, 2, 3, 4, 5)
y2 <- c(1, 3, 5, 7, 9)

# 假设合计直线的数据为 x3 和 y3
x3 <- c(1, 2, 3, 4, 5)
y3 <- c(3, 7, 11, 15, 19)

# 绘制男性直线
plot(x1, y1, type = "l", col = "red", xlab = "x", ylab = "y", main = "Plot with Legend")

# 添加女性直线
lines(x2, y2, type = "l", col = "blue")

# 添加合计直线
lines(x3, y3, type = "l", col = "green")

接下来，我们需要使用legend函数添加图例。legend函数的参数包括位置（x和y的坐标），图例的标签（legend）以及对应的颜色（col）。

# 添加图例
legend(x = 3, y = 10, legend = c("Male", "Female", "Total"),
       col = c("red", "blue", "green"), lty = 1)

这样就可以在图中添加图例了。其中，x和y的坐标表示图例的位置，legend表示图例的标签，col表示图例的颜色，lty表示图例的线型（1表示实线）。

完整的代码如下：

# 假设男性直线的数据为 x1 和 y1
x1 <- c(1, 2, 3, 4, 5)
y1 <- c(2, 4, 6, 8, 10)

# 假设女性直线的数据为 x2 和 y2
x2 <- c(1, 2, 3, 4, 5)
y2 <- c(1, 3, 5, 7, 9)

# 假设合计直线的数据为 x3 和 y3
x3 <- c(1, 2, 3, 4, 5)
y3 <- c(3, 7, 11, 15, 19)

# 绘制男性直线
plot(x1, y1, type = "l", col = "red", xlab = "x", ylab = "y", main = "Plot with Legend")

# 添加女性直线
lines(x2, y2, type = "l", col = "blue")

# 添加合计直线
lines(x3, y3, type = "l", col = "green")

# 添加图例
legend(x = 3, y = 10, legend = c("Male", "Female", "Total"),
       col = c("red", "blue", "green"), lty = 1)

运行上述代码，就可以在绘制的图中添加图例了