r - 在 ggplot2 中绘制非线性模型输出的输出

Question

我有一些数据，其中最适合的非线性回归是 S 曲线模型。我想在 ggplot2 中绘制 S 曲线，但不知道如何指定这个模型。我假设我应该使用以下代码，但不知道如何指定方法或公式。任何人都可以帮忙吗？

'''geom_smooth(method = XXX, method.args = list(formula = XXX)'''

Answer 1

您可以将预测包装在geom_function(). 下面带有内置数据集的示例：

library(ggplot2)

# From the ?nls examples
df <- subset(DNase, Run == 1)
fit <- nls(density ~ SSlogis(log(conc), Asym, xmid, scal), df)

ggplot(df, aes(conc, density)) +
  geom_point() +
  geom_function(
    fun = function(x) {
      predict(fit, newdata = data.frame(conc = x))
    },
    colour = "red",
  ) +
  scale_x_continuous(trans = "log10")