plotly Regressionslinie R

Question

Problem beim Hinzufügen einer Regressionslinie zu einem Plotly-Streudiagramm. Ich habe den folgenden Code getan:

require(plotly) 
data(airquality) 

## Scatter plot ## 

c <- plot_ly(data = airquality, 
    x = Wind, 
    y = Ozone, 
    type = "scatter", 
    mode = "markers" 
    ) 
c 

## Adding regression line (HERE IS THE PROBLEM) ## 

g <- add_trace(c, 
    x = Wind, 
    y = fitted(lm(Ozone ~ Wind, airquality)), 
    mode = "lines" 
    ) 
g 

Answer 1

Ich denke, es durch die fehlenden Werte

airq <- airquality %>% 
    filter(!is.na(Ozone)) 

fit <- lm(Ozone ~ Wind, data = airq) 

airq %>% 
    plot_ly(x = ~Wind) %>% 
    add_markers(y = ~Ozone) %>% 
    add_lines(x = ~Wind, y = fitted(fit)) 

01 verursacht wird