r - 使用循环 ggplot2 将各种函数添加到同一图中

Question

我有以下等式:y = 1 - cx，其中 c 是实数。
我正在尝试做一些事情，我可以选择 c 的值范围，并用相应的 c 绘制每个函数的所有图形。

这是我现在得到的:

p <- ggplot(data = data.frame(x = 0), mapping = aes(x = x))
statfun1 <- c()
for (i in 1:3){
  c <- i
  fun1.i <- function(x){1 - c*x}
  fun1.i.plot <- stat_function(fun = fun1.i, color="red")
  statfun1 <- statfun1 + fun1.i.plot
}
p + statfun1 + xlim(-5, 5)

p 基本上是您在 ggplot2 中绘制函数所需的内容，然后我在这种情况下检查 c 的值 1、2 和 3，并尝试在最后添加它们，但这似乎不起作用。任何人都可以帮助我或让我走上正轨？

Answer 1

定义你的功能

fun1.i <- function(x, c){1 - c*x}

现在来自 ?`+.gg`

You can add any of the following types of objects:

...

You can also supply a list, in which case each element of the list will be added in turn.

所以你可以使用 lapply

p + xlim(-5, 5) + lapply(1:3, function(c) { 
  stat_function(fun = fun1.i, args = list(c = c), geom = "line", color="red")
  })

结果