plotly回帰直線R

Question

'プロット'散布図に回帰直線を追加する問題。 私は、次のコードをやった：私はそれが欠落値によって引き起こされます数える

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

を

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))