如何在ggplot2中將曲線添加到散點圖？

Question

我正在對撲熱息痛過量進行審覈。我創建了攝入後血液濃度與時間的散點圖。這很簡單：然而，治療是由他們的血液水平是高於還是低於y=1986*0.840897^t，其中t是時間，y =值爲t=4:16的血液水平。

如何在的散點圖上疊加這樣的函數？

基本上我想創造的東西有點像這樣：

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)