在 R 中使用 for 循环绘制函数列表

Question

plot 如何在 R 中使用for循环在一个图中生成函数列表？ 下面的代码可以解决这个问题，但需要为for循环之外的第一个 function 单独调用plot ，这非常笨拙。 有没有一种方法可以在不创建多个图的情况下处理for循环内的所有绘图？

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

x_vals <- seq(0, 10, length.out=100)
plot(x_vals, funcs[[1]](x_vals), type="l", ylim=c(0,100))
for (i in 2:length(vec)) {
  lines(x_vals, funcs[[i]](x_vals))
}

Answer 1

您也可以先进行计算，然后再进行绘图，如下所示：

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

x_vals <- seq(0, 10, length.out=100)
y_vals <- sapply(funcs, \(f) f(x_vals))
plot(1, xlim=range(x_vals), ylim=range(y_vals), type='n', log='y', 
     xlab='x', ylab='y')
apply(y_vals, 2, lines, x=x_vals)

通过这种方式，您可以在启动 plot 之前知道y值的范围，并可以相应地设置y轴限制（如果您愿意的话）。 请注意，我在这里选择使用对数y轴。

Answer 2

根据 MrFlick 的评论，看起来像这样的方法是做我正在寻找的事情的一种方式，但仍然不是很好。

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

x_vals <- seq(0, 10, length.out=100)
plot(NULL, xlim=c(0,10), ylim=c(0,100))
for (i in 1:length(vec)) {
  lines(x_vals, funcs[[i]](x_vals))
}