R 如何使用ggplot2绘制复杂函数？

我正试着给复杂函数的色带上色。然而，这并不顺利（见下图）：

我只想画函数的下半部分。但是，在这种情况下，仅绘制由顶点连接的部分，并且绘制的部分包含曲线

我的代码：

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)

我试图解决这个问题，并在谷歌上搜索解决方案。但我找不到任何建议

---

如果你知道任何建议，请告诉我如何解决这个问题。谢谢

一个选项是删除

geom_功能区

部分，并在

stat_函数中添加
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

p1我想你是指曲线下的面积？检查答案是否符合您的需要。非常感谢您教我URL并立即回复！我很遗憾没有进行调查。