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)

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