R语言 Computation failed in `stat_poly_eq()`: missing value where TRUE/FALSE needed 如何解决

问题遇到的现象和发生背景

问题相关代码，请勿粘贴截图

运行结果及报错内容

Warning message:
Computation failed in stat_poly_eq():
missing value where TRUE/FALSE needed

我的解答思路和尝试过的方法

我的数据已经去除了小于0的数据，但是对数拟合仍然失败

我想要达到的结果

在图中给出R2，p值

formula=log(y)~x不适用，必须在aes里面重新定义新的，转化成线性关系求算关系式，R2和P值