R语言绘制图例
图例（Legend）是数据可视化中一个非常重要的组成部分，它用于解释和标记图表中不同元素的含义和对应关系。在R语言中，我们可以使用不同的函数和参数来创建和自定义图例，从而使我们的图表更加清晰和易于理解。
legend() 函数
在R语言中，我们可以使用legend()函数来创建图例。该函数的语法为：
legend(x, y, legend, fill, col, bg, lty, lwd, pch, cex, font, ... )
其中参数的含义如下：
x和y：图例的起始位置的x和y坐标（默认为右上角）；legend：一个字符向量，其中包含图例的标签文本；fill：一个字符向量，其中包含图例中每个标签的填充颜色；col：一个字符向量，其中包含图例中每个标签的边框颜色；bg：一个字符向量，其中包含图例中每个标签的背景颜色；lty：一个字符向量，其中包含图例中每个标签的线条类型；lwd：一个数值向量，其中包含图例中每个标签的线条宽度；pch：一个数值向量，其中包含图例中每个标签的点的类型；cex：一个数值，表示图例中标签的字符扩展比例；font：一个数值，表示图例中标签的字体；...：其他参数，如text.col用于指定标签文本的颜色。
下面是一个示例，演示如何使用legend()函数创建一个简单的图例：
# 创建一个绘制散点图的函数
plot_scatter <- function(x, y, col, main, xlab, ylab) {
plot(x, y, col = col, pch = 16, main = main, xlab = xlab, ylab = ylab)
}
# 生成一些随机数据
set.seed(123)
x <- rnorm(100)
y <- rnorm(100)
col <- sample(c("red", "green", "blue"), 100, replace = TRUE)
# 绘制散点图
plot_scatter(x, y, col, main = "Scatter Plot", xlab = "X", ylab = "Y")
# 创建图例
legend("topright", legend = c("Group 1", "Group 2", "Group 3"),
col = c("red", "green", "blue"), pch = 16)
以上代码会生成一个散点图，并在图的右上角添加一个图例，其中标记了三个组别（Group 1、Group 2、Group 3），并使用不同的颜色来表示。
自定义图例样式
除了基本参数之外，legend()函数还提供了许多其他参数，用于自定义图例的样式。例如，我们可以使用lty参数来指定线条的类型，使用lwd参数来指定线条的宽度，使用cex参数来调整标签的字体大小，等等。
下面是一个示例，演示如何自定义图例的样式：
# 创建一个绘制折线图的函数
plot_line <- function(x, y, lty, lwd, main, xlab, ylab) {
plot(x, y, type = "n", main = main, xlab = xlab, ylab = ylab)
for (i in 1:(length(x)-1)) {
lines(x[i:(i+1)], y[i:(i+1)], lty = lty[i], lwd = lwd[i])
}
}
# 生成一些随机数据
x <- 1:10
y <- matrix(rnorm(40), ncol = 2)
lty <- c(1, 2)
lwd <- c(1, 2)
# 绘制折线图
plot_line(x, y, lty, lwd, main = "Line Plot", xlab = "X", ylab = "Y")
# 创建图例
legend("topright", legend = c("Line 1", "Line 2"),
lty = lty, lwd = lwd, col = "black", cex =
