R 给定一个参数数据框，用这些参数绘制一个单变量函数

我有一个特定系数的data.frame。就MWE而言

DF <- data.frame(a = rnorm(100), b = rnorm(100))

DF以下是我的方法：

linear_fun <- function(x, a, b) {
  a*x + b
}

stat_linear_fun <- function(x_range, a, b) 
  stat_function(data = data.frame(x = x_range), 
                mapping = aes(x),
                fun = linear_fun, 
                args = list(a = a, b = b))

plot_ab <- function(DF, x_range) {
  p <- ggplot()
  for (i in 1:nrow(DF)) {
    p <- p + stat_linear_fun(x_range, DF$a[i], DF$b[i])
  }
  p
}

DF <- data.frame(a = -2:2, b = c(0, -3, 2, -5, 6))
plot_ab(DF, c(0, 10))

linear\u fun我现在还没有尝试过（无法访问R），但这有帮助吗？