自定义图例位置为顶部右侧（R语言）

自定义图例位置为顶部右侧（R语言）

在R语言中，绘制图形时，图例（legend）是一种重要的元素，用于解释图中不同元素的含义。默认情况下，图例通常位于图形的右上角。然而，有时候我们可能希望将图例放置在顶部右侧位置，以便更好地适应图形的布局。本文将介绍如何使用R语言实现自定义图例位置为顶部右侧的方法。

首先，我们需要生成一个示例图形，然后在顶部右侧添加图例。假设我们要绘制一个简单的散点图，其中包含两个类别的数据点，并且我们希望将图例放置在顶部右侧。下面是一个完整的示例代码：

# 生成示例数据
set.seed(1)
x1 <- rnorm(50, mean = 0, sd = 1)
y1 <- rnorm(50, mean = 0, sd = 1)
x2 <- rnorm(50, mean = 2, sd = 1)
y2 <- rnorm(50, mean = 2, sd = 1)

# 创建散点图
plot(x1, y1, col = "blue", pch = 16, xlim = c(-3, 5), ylim = c(-3, 5), xlab = "X", ylab = "Y")
points(x2, y2, col = "red", pch = 16)

# 定义图例标签
legend_labels <- c("Category 1", "Category 2")

# 获取绘图区域的坐标
plot_region <- par("usr")

# 计算图例框的位置
legend_x <- plot_region[2] + 0.1
legend_y <- plot_region[4] - 0.1

# 绘