R：ggplot上的自定义方程式。带有第三个变量的stat_function

Posted 2021-04-19

我正在尝试向ggplot引入自定义方程式。

data1989 %>% 
 ggplot(aes(x = daysAFTERFIRE, y = NDVI)) + 
 stat_function(fun= ~ (.meanNDVI)-(exp(-0.0000348*(.x)-2.17)))

[如您所见，我的自定义方程式既包括y（列NDVI）和x（列daysAFTERFIRE），也包括第三项meanNDVI，这是我的小标题上的另一列。

尝试运行，我得到了：

Computation failed in `stat_function()`:
object '.meanNDVI' not found 

任何人有解决此问题的想法吗？谢谢！

答案

您可以在ggplot调用之外构建函数，然后进行故障排除可能更容易：

f <- function(.x) (meanDVI)-(exp(-0.0000348*(.x)-2.17)))

然后：

data1989 %>% 
 ggplot(aes(x = daysAFTERFIRE, y = NDVI)) + 
 stat_function(fun= f)))