情节 - 如何使用R添加每种颜色的多个回归？

Question

我的情节是将所有回归线彼此堆叠在一起。

mod = lm(weight_kg ~ height_cm, data=rugby_data) 

fig2 <- plot_ly(rugby_data, x = ~height_cm, y = ~weight_kg, type="scatter", mode="markers", color = rugby_data$continent) %>% 
        add_lines(x = rugby_data$height_cm,y = fitted(mod), name="fitted", mode = "lines") %>%
  layout(title = 'Height Vs. Weight Scatter Plot', plot_bgcolor = "#e5ecf6")

fig2

代码和图的图像

Answer 1

您的lm对象不适合组（我猜是concodant），

如果您的目的是绘制点和回归行，

您可以尝试使用ggplot2 ggplot2 < /代码>。

由于您没有提供您的数据，因此我以iris为例。

library(dplyr)
library(ggplot2)

iris %>%
  ggplot(aes(Sepal.Width, Sepal.Length, group = Species, color = Species)) +
  geom_smooth(method = "lm") +
  geom_point()