在 R 中绘制多个变量函数

Question

我需要以下问题的帮助：

考虑以下名为 negloglike 的 R 函数，它有两个输入参数：lam 和 x，按顺序排列。 使用此函数可以在 λ ∈ (0, 2) 的值范围内生成对数似然函数图。

negloglike <- function(lam, x) {
  l = -sum(log(dexp(x, lam)))
  return(l)
}

有人可以帮忙吗？可以用ggplot做这样的事情吗？我一直在尝试使用stat_function 设置lam 的值（例如这里的0.2）：

ggplot(data = data.frame(x = 0), mapping = aes(x = x)) +
  stat_function(fun = negloglike, args = list(lam = 0.2)) +
  xlim(0,10)

但plot 总是在某个 y 值处返回一条水平线，而不是返回一条曲线。

我应该使用不同的几何图形吗？甚至完全不同的包？

非常感谢！

Answer 1

诀窍是Vectorize 函数覆盖感兴趣的参数。
感谢您的提示，请转到this question 的投票最多的答案。它仅使用基本图形，因此这里有一个 ggplot2 等价物。
首先我将使用函数dexp定义负对数似然

library(ggplot2)

negloglike <- function(lam, x) {negloglike <- function(lam, x) {
    l = -sum(dexp(x, lam, log = TRUE))
    return(l)
}
nllv <- Vectorize(negloglike, "lam")

但最好使用解析式，易于手工建立。

negloglike2 <- function(lam, x) {
    l = lam*sum(x) - length(x)*log(lam)
    return(l)
}

nllv2 <- Vectorize(negloglike2, "lam")

ggplot(data = data.frame(lam = seq(0, 2, by = 0.2)), mapping = aes(x = lam)) +
  stat_function(fun = nllv2, args = list(x = 0:10))

nllv 和 nllv2 都给出了相同的图表。