如果使用ggplot2，如何将曲线添加到散点图？

Question

我正在对扑热息痛服用过量进行审核。我正在创建一个摄食后血液水平与时间的散点图。这非常简单：但是，治疗取决于他们的血液水平是高于还是低于时间y=1986*0.840897^t所在的线，t即y=值的血液水平t=4:16。

我如何在这样的散点图上叠加这样的函数ggplot2？

本质上，我想创建如下所示的内容：

Answer 1

定义您自己的函数，将其传递给stat_function()您，一切就绪。

set.seed(357)

# simulate some data, rnorm() is used to add some noise
x <- seq(from = 4, to = 6, length.out = 10)
y <- 1986*0.840897^x + rnorm(10, sd = 30)
xy <- data.frame(x, y)

# define function
myfun <- function(x) 1986*0.840897^x

library(ggplot2)

ggplot(xy, aes(x = x, y = y)) +
  theme_bw() +
  geom_point() +
  stat_function(fun = myfun)