我有下表

> Test
# A tibble: 10 x 4
     Day Chemical   Amount    SE
   <int> <chr>       <dbl> <dbl>
 1     0 Chemical 1      5     1
 2     1 Chemical 1      4     1
 3     3 Chemical 1      3     1
 4     7 Chemical 1      2     1
 5    14 Chemical 1      1     1
 6     0 Chemical 2      6     1
 7     1 Chemical 2      5     1
 8     3 Chemical 2      4     1
 9     7 Chemical 2      3     1
10    14 Chemical 2      2     1

所以我创建了如下的ggplot

ggplot(Test,aes(x=Day,y=Amount,fill=Chemical)) +
  geom_point(aes(shape=Chemical)) 

Concentration of Chemical over time

然后我还要在ggplot中显示这两个函数。

a1 <- 100    
a11 <- 75

a2 <- 100 
a22 <- 80  
k1 <- 0.1 
k11 <- 0.01 

k2 <- 0.5 
k22 <- 0.01
f1 <- function(x) a1*exp(-k1*x)+a11*exp(-k11*x)
f2 <- function(x) a2*exp(-k2*x)+a22*exp(-k22*x)     

现在是我的问题：我该如何告诉ggplot我希望第一个函数（f1）取自“化学1”的x值（金额），第二个函数（f2）应当取自x的x值（金额） “化学2”？