R Plotly - 带有日期的线性趋势

如何解决R Plotly - 带有日期的线性趋势

我无法将线性趋势线添加到我分散的 Plotly 折线图之一。 我尝试使用 fitted() 函数但没有成功。

我尝试了以下答案：plotly regression line R 但是，此图表对 X 和 Y 使用两个数值，而我的 X 轴使用日期值。

这是我目前所拥有的：

if (interactive()) {
  library(plotly)
  
  YearMonth <- c("2020-09","2020-10","2020-11","2020-12")
  MMMYY <- c("Sep-20","Oct-20","Nov-20","Dec-20")
  Num1 <- c(3.54,3.54,0.80,2.00)
  Num2 <- c(1.00,1.00,1.00)

  data <- data.frame(YearMonth,MMMYY,Num1,Num2)
  
  ui <- fluidPage(
    plotlyOutput("plot")
  )
  
  server <- function(input,output,session) {
    output$plot <- renderPlotly({

      plot_ly(data,x = ~MMMYY,y = ~Num1,name = "Num1",type = 'scatter',mode = 'line',connectgaps = TRUE) %>%
        add_trace(y = ~Num2,name ="Num2",connectgaps = TRUE) %>%
        add_trace(y = fitted(~Num1),name = "Linear (Num1)",mode = "lines",connectgaps = TRUE,line = list(color = "blue",width = 0.5,dash = "dot")) %>%
        layout(title = list(text = "Num1/Num2 Trend",y = 0.97),xaxis = list(title = ""),yaxis = list(title = "",tickformat = ".2f"),legend = list(orientation = "h",xanchor = "center",x = 0.5))
    })
    
  }
  shinyApp(ui,server)
}

我正在寻找伴随 Num1 的线性趋势线。
这是我想要的结果（红色虚线）：