用不同颜色绘制回归线和散点图

Question

这些是目标

使用

mtcars

数据集

head(mtcars)

1. 在散点图上绘制简单的散点图和回归线。

   x 轴 = 重量，y 轴 = 英里/加仑

2. 根据第

   vs

   列中的值对散点图进行着色，vs=0 点为灰色，vs=1 点 = 红色。

3. 按组划分的回归线 =

   gear

   （3 条回归线）

4. 根据第

   am

   列中的值对回归线着色，am=0 回归线 = 蓝色，am=1 回归线 = 绿色。

到目前为止我的尝试。

非常感谢任何有关如何实现这一目标的建议。谢谢。

head(mtcars)

  mtcars %>%
  ggplot(aes(x=wt , y = mpg))+
  geom_point(size=1, aes(color=vs)) +
  geom_smooth(method=lm, se=FALSE, aes(group=gear))

Answer 1

您可以使用 {ggnewscale} 包将两个不同的比例添加到同一个 ggplot 对象。如果您想要颜色类别而不是连续的颜色渐变，您还应该将列转换为因子/字符而不是数字（在绘制图表之前或绘制过程中）。

示例：

mtcars %>%
  ggplot(aes(x=wt , y = mpg))+
  geom_point(size=1, aes(color=factor(vs))) +
  scale_colour_manual(values = c("0" = "grey", "1" = "red")) +
  ggnewscale::new_scale_color() +
  geom_smooth(mapping = aes(colour=factor(am)),
              method=lm, se=FALSE) +
  scale_colour_manual(values = c("0" = "blue", "1" = "green"))