графически регрессионная линия R

Проблема с добавлением линии регрессии к «точечной» диаграмме рассеяния. Я сделал следующий код:

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 

 введите описание изображения здесь

4 голоса | спросил Monteiro 26 J000000Tuesday16 2016, 17:48:59

2 ответа


0

Я считаю, что это связано с отсутствующими значениями

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

 введите описание изображения здесь

ответил JohnCoene 22 MaramWed, 22 Mar 2017 11:17:58 +03002017-03-22T11:17:58+03:0011 2017, 11:17:58
0

Используйте макет, чтобы удалить легенду, и проследите, чтобы добавить линию регрессии

data("airquality")
fv <- airquality %>% filter(!is.na(Ozone)) %>% lm(Ozone ~ Wind,.) %>% fitted.values()

airquality %>% filter(!is.na(Ozone)) %>%
  plot_ly(x = ~Wind, y = ~Ozone, mode = "markers") %>% 
  add_markers(y = ~Ozone) %>% 
  add_trace(x = ~Wind, y = fv, mode = "lines") %>%
  layout(showlegend = F)

 введите описание изображения здесь

ответил Rafael Díaz 12 thEurope/Moscowp30Europe/Moscow09bEurope/MoscowWed, 12 Sep 2018 09:48:39 +0300 2018, 09:48:39

Похожие вопросы

Популярные теги

security × 330linux × 316macos × 2827 × 268performance × 244command-line × 241sql-server × 235joomla-3.x × 222java × 189c++ × 186windows × 180cisco × 168bash × 158c# × 142gmail × 139arduino-uno × 139javascript × 134ssh × 133seo × 132mysql × 132