R 如果是ggplot2，如何将曲线添加到散点图？

我正在审核扑热息痛过量的情况。我正在创建一个血液水平与摄入后时间的散点图。这是非常简单的：然而，治疗取决于他们的血液水平是高于还是低于

y=1986*0.840897^t

，其中

t

是时间，

y

=值

t=4:16

的血液水平

如何将类似于散点图的函数叠加到

ggplot2

基本上，我想创建一个类似这样的东西：

---

定义您自己的函数，将其传递给

stat\u 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)

set.seed（357）
#模拟一些数据，使用rnorm（）添加一些噪声
x定义您自己的函数，将其传递给
stat\u 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)

set.seed（357）
#模拟一些数据，使用rnorm（）添加一些噪声
x