如何在R中的多线图上添加图例？

在R中的多线图上添加图例的方法有多种。以下是其中两种常用的方法：

方法一：使用图例函数legend()

首先，通过plot()函数绘制多条线，并将结果保存在一个对象中，例如lines_plot。
使用legend()函数来添加图例，该函数有几个常用参数：
- x和y：指定图例的位置坐标；
- legend：一个字符向量，指定每个线条的名称；
- col：一个字符向量，指定每个线条的颜色；
- lty：一个字符向量，指定每个线条的线型；
- lwd：一个数字向量，指定每个线条的线宽；
- bty：一个字符，指定图例的边框类型。

通过调用legend()函数并传入所需的参数来添加图例。例如，legend(x = 1, y = 10, legend = c("Line 1", "Line 2"), col = c("red", "blue"), lty = c(1, 2), lwd = c(2, 2), bty = "n")。

示例代码：

# 创建一个空白的图形窗口
plot(1, type = "n", xlim = c(0, 10), ylim = c(0, 20), xlab = "X", ylab = "Y")

# 绘制多条线
lines_plot <- plot(c(1, 2, 3, 4), c(5, 10, 15, 20), type = "l", col = "red")
lines_plot <- plot(c(1, 2, 3, 4), c(8, 12, 14, 18), type = "l", col = "blue")

# 添加图例
legend(x = 1, y = 10, legend = c("Line 1", "Line 2"), col = c("red", "blue"), lty = c(1, 2), lwd = c(2, 2), bty = "n")

方法二：使用ggplot2包

首先，加载ggplot2包，如果未安装，可以通过install.packages("ggplot2")进行安装。
创建一个数据框，其中包含每条线的x和y值以及每条线的标签。
使用ggplot()函数创建一个空白的绘图图层，并指定数据框作为数据源。
使用geom_line()函数绘制多条线，并通过aes()函数指定x和y的映射。
使用labs()函数指定x轴和y轴的标签。
使用scale_color_manual()函数指定每条线的颜色，并使用guide_legend()函数指定图例的标题。
最后，通过调用ggplot()函数并传入所需的参数来绘制图形。

示例代码：

library(ggplot2)

# 创建一个数据框
data <- data.frame(x = c(1, 2, 3, 4), y1 = c(5, 10, 15, 20), y2 = c(8, 12, 14, 18))

# 创建绘图图层并绘制多条线
ggplot(data) +
  geom_line(aes(x = x, y = y1, color = "Line 1")) +
  geom_line(aes(x = x, y = y2, color = "Line 2")) +
  labs(x = "X", y = "Y") +
  scale_color_manual(values = c("red", "blue"), guide = guide_legend(title = NULL))

这样，你就可以在R中的多线图上成功添加图例了。