在Base R中移动绘图图例位置报错，如何正确操作？

问题重现 #

你创建了如下数据框：

x <- c(1,2,3,4,5,6,7,8)
y <- c(8,7,6,5,4,3,2,1)

df <- data.frame(x,y)

尝试将legend函数嵌套在plot函数中以将图例移至左上角：

plot(df, pch="",
     col = c("Green","Black"),
     legend("topleft", legend = "legend"))

运行后出现错误：

Error in (function (s, units = "user", cex = NULL, font = NULL, vfont = NULL,  : 
  plot.new has not been called yet

错误原因 #

legend()函数不能嵌套在plot()函数的参数列表中。plot()函数在执行过程中还未完成绘图环境的初始化（即未调用plot.new()），而legend()需要依赖已初始化的绘图区域才能工作，因此会触发上述错误。

正确解决方案 #

必须先调用plot()完成绘图区域的创建，再单独调用legend()来添加图例。以下是适配剂量反应曲线绘制的示例代码：

示例1：绘制数据点+曲线并添加图例 #

# 创建数据框
x <- c(1,2,3,4,5,6,7,8)
y <- c(8,7,6,5,4,3,2,1)
df <- data.frame(x,y)

# 第一步：创建绘图区域，绘制数据点
plot(df$x, df$y, pch = 16, col = "Green", 
     xlab = "剂量", ylab = "反应值", main = "剂量反应曲线")

# 第二步：添加拟合曲线（如果需要）
lines(df$x, df$y, col = "Black", lwd = 2)

# 第三步：在左上角添加图例
legend("topleft", 
       legend = c("观测数据", "拟合曲线"),
       col = c("Green", "Black"),
       pch = c(16, NA),  # 数据点用pch=16，曲线用NA
       lty = c(NA, 1),   # 曲线用实线lty=1，数据点用NA
       bty = "n")        # 可选：去掉图例边框

示例2：仅绘制数据点并添加单个图例 #

plot(df, pch = 16, col = "Green", xlab = "剂量", ylab = "反应值")
legend("topleft", legend = "剂量反应数据", col = "Green", pch = 16)

通过这种分步调用的方式，plot()先完成绘图环境的初始化，后续的legend()就能正常识别绘图区域，顺利将图例放置在左上角。

内容的提问来源于stack exchange，提问作者Stylopidae