用基R绘制NLS模型的渐近回归曲线

我正试图预测是否会达到。我已经计算了她竞选活动累计捐款的渐近线，并规划了这些数值。现在我想添加非线性最小二乘估计的预测值曲线

我怎样才能画出那条曲线

下面是使用下面提供的代码进行可视化的效果：

我想将曲线添加到右下角标题为“累计捐赠金额”的绘图中。绿线表示目标（30000美元），红线表示预测的最大值（16171.11美元）

我想用base R绘制曲线，而不是ggplot2

---

代码

---

捐赠您可以使用
曲线
功能。它的第一个参数是一个表达式，其中
x
被对应于绘图中x数据范围的值替换

curve(predict(fm, 
              newdata = data.frame(day = abs(as.numeric(as.Date("2019-10-28") - x)))), 
      add = TRUE)


curve(predict(fm, 
              newdata = data.frame(day = abs(as.numeric(as.Date("2019-10-28") - x)))), 
      add = TRUE)