我如何绘制具有不同参数的公式？在 R

Question

我看到一个视频，其中显示了转换参数（特别是收益递减的到达函数中）如何影响结果。

该函数的公式为：

情节应该是这样的：

我怎样才能在 R 中重新创建这个图？

我开始写一个函数：

reach <- function(MU){
  1-e^{MU * x * t}/ 1+e^{MU * x * t}/
}

mu <- c(1, 3, 5, 7)
for(i in seq_along(mu)) {
  curve(weibull(.5, mu[i], x), from=0, to=2, add=i!=1, col=col[i], ylim=c(0,50), main="alpha=.5")
}

我不知道如何将公式翻译成R代码。我也没有任何 x、m 或 t。是否有模拟或者我应该如何处理？有什么建议吗？

Answer 1

我不明白

weibull()

在你的代码中来自哪里。当然，您至少需要为

mu

和

x

创建数据。

这能让你开始吗？

 reachFun <- function(mu, x, t) {
   (1L - exp(-mu * x * t)) / (1L + exp(-mu * x * t))
 }
 
 mu <- seq(1L, 4L, 1L)
 t <- 2
 colours <- c("blue", "orange", "green", "red")
 
 # par(mfrow = c(1,1))
 
 lapply(X = mu, 
        FUN = \(i) 
        curve(reachFun(mu = i, x = x, t = t), 
              from = 0L, to = 2L, col = colours[i], main = "", 
              add = i!=1, ylim = c(0L:1L), xlim = c(0, 1.4), 
              xlab = as.expression(bquote(bold("Marketing ..."))), 
              ylab = as.expression(bquote(bold("C... A...."))))
 )

 legend("topleft", legend = mu, col = colours, lty = 1L)

^{创建于 2023-10-11，使用 reprex v2.0.2}

---

编辑关于您的评论，当然，这是很多微调：调整

legend()

，仔细选择颜色，选择

t

的值，选择

mu

的值（看不到），重命名轴，选择限制，...