如何在R语言中用for循环在单张图绘制函数列表，无需单独初始化绘图？

要把所有绘图操作整合到for循环内且仅生成一张图，可以用以下两种简洁的方法：

方法1：先初始化空绘图框架 #

先创建一个仅包含坐标轴的空图，设置好合适的轴范围，之后在循环中统一用lines()添加所有函数曲线：

vec <- 1:10
funcs <- lapply(vec, function(base){function(exponent){base^exponent}})

x_vals <- seq(0, 10, length.out=100)
# 初始化空图，type="n"表示只画坐标轴不渲染数据
plot(0, 0, type="n", xlim=range(x_vals), ylim=c(0, 10^10), xlab="x", ylab="y")

for (i in seq_along(vec)) {
  lines(x_vals, funcs[[i]](x_vals), col=i) # 用颜色区分不同曲线
}

注意要提前估算好ylim的范围，确保所有函数的输出值都能被包含在内（示例中10^10是10^x在x=10时的取值，刚好覆盖所有曲线的最大值）。

方法2：循环内判断首次迭代 #

在循环中通过索引判断是否为第一次绘图，首次用plot()初始化绘图，后续迭代用lines()追加曲线：

vec <- 1:10
funcs <- lapply(vec, function(base){function(exponent){base^exponent}})

x_vals <- seq(0, 10, length.out=100)

for (i in seq_along(vec)) {
  y_vals <- funcs[[i]](x_vals)
  if (i == 1) {
    # 首次绘图时设置轴范围和基础样式
    plot(x_vals, y_vals, type="l", ylim=c(0, 10^10), col=i)
  } else {
    lines(x_vals, y_vals, col=i)
  }
}

这种方法把所有绘图逻辑都封装在循环内部，无需额外的前置plot调用，同样只会生成一张包含所有曲线的图。

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