r - 如何将 stat_function 美学映射到 ggplot2 中的数据？

Question

我想添加一个 stat_function图层到一个绘图，其美学映射到某个变量的状态，该变量标识一组参数。我在下面的最小工作示例中手动创建了两个 stat_function 行。这通常是结果的样子。

p <- ggplot(data.frame(x = -1:1), aes(x = x))
p + stat_function(fun = function (x) 0 + 1 * x, linetype = 'dotted') +
  stat_function(fun = function (x) 0.5 + -1 * x, linetype = 'solid')

我对如何做到这一点的最佳猜测是

params <- data.frame(
  type = c('true', 'estimate'),
  b = c(0, 0.5),
  m = c(1, -1),
  x = 0
)

linear_function <- function (x, b, m) b + m * x
p + stat_function(data = params,
                  aes(linetype = type, x = x),
                  fun = linear_function,
                  args = list(b = b, m = m))

如果我使用诸如 args = list(b = 0, m = 1) 之类的常量，则此表单有效，但是当我尝试从 params 数据框中获取参数的值时，它无法找到这些列。为什么这不像我期望的那样工作，有什么解决方案？

Answer 1

不幸的是，这里没有任何积极的补充；事实证明: stat_function不支持此功能 .

另一种方法是使用 for 循环来制作图层，如 this question 中所示。 ，或者自己生成网格数据，这是对 a feature request discussion about adding this functionality 的结束评论所建议的。 .