plottric regression line R

Question

將回歸線添加到'plotly'散點圖的問題。 我已經做了下面的代碼：

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