ggplot2で複合関数をペイントする方法は？

Question

私は複雑な機能のリボンを色づけしようとしています。しかし、これは（下図参照）うまくいかない：私は、関数の下部のみをペイントする

。ただし、この場合、頂点で接続されている部分だけが塗りつぶされ、塗装された部分には曲線が含まれます。

マイコード：

p1 = ggplot(data.frame(x=c(-2.14344,1.25), y=c(0,12.5)), 
      aes(x, y)) 
p1 = p1 + stat_function(fun = function(x)(exp(-18.82 + 16.99 * x) + exp(-0.5497 - 0.6572 * x))) 
p1 = p1 + xlim(-2.14344,1.25) + ylim(0,12.5) 
p1 = p1 + geom_ribbon(fill="blue", alpha = 0.5, 
         aes(ymax = exp(-18.82 + 16.99 * x) + exp(-0.5497 - 0.6572 * x), 
          ymin = 0)) 
print(p1) 

私はこの問題を解決しようとしたとGoogleで解決策を探しました。しかし、私は何の提案も見つけられませんでした。

ご意見がございましたら、解決方法を教えてください。ありがとう！

Answer 1

1つのオプションは、geom_ribbon一部を除去し、あなたのstat_functionでgeom = 'area'を追加することです：

p1 <- ggplot(data.frame(x=c(-2.14344,1.25),y=c(0,12.5)), aes(x,y)) + 
     stat_function(fun=function(x)(exp(-18.82 + 16.99 * x) + exp(-0.5497 - 0.6572 * x)),geom = "area") + 
     xlim(-2.14344,1.25) + ylim(0,12.5) #+ geom_ribbon(fill="blue", alpha=0.5,aes(ymax=exp(-18.82 + 16.99 * x) + exp(-0.5497 - 0.6572 * x), ymin=0)) 
p1