Al crear una línea de tendencia para un diagrama de dispersión, estoy usandoadd_trace para agregar una línea de tendencia lineal.

Cuando los datos solo tienen una "serie" de datos, es decir, solo hay un grupo de coordenadas, el siguiente código funciona bien. Sin embargo, cuando presento una serie de series, la "línea de tendencia" se ve así:

Aquí está la parte relevante del código:

    p <- plot_ly(filteredFull(), x=Relative.Time.Progress, y=cumul.ans.keystroke,
                 mode='markers', color=KeystrokeRate, size=KeystrokeRate,
                 marker=list(sizeref=100), type='scatter', 
                           hoverinfo='text', text=paste("token: ",Token, "Keystrokes: ",
                                                          KeystrokeCount)) %>%
        layout(
          xaxis=list(range=c(0,1)),
          yaxis=list(range=c(0,max(filteredFull()$cumul.ans.keystroke)))
        )

     lm.all <- lm(cumul.ans.keystroke ~ Relative.Time.Progress,
              data=df)
      observe(print(summary(lm.all)))
      p <- add_trace(p, y=fitted(lm.all), x=Relative.Time.Progress,
                     mode='lines') %>%
        layout(
          xaxis= list(range = c(0,1))
        )
p

Puedo agregar más código o intentar hacer un ejemplo de trabajo mínimo, si es necesario. Sin embargo, espero que este sea un problema familiar que es obvio por el código.