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

Question

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

如何使用ggplot2在散点图的顶部叠加类似的函数？

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

Answer 1

定义自己的函数，将其传递给stat_function() ，就一切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)