R图不同 colored颜色的回归线和散点图

发布于12月13日

这些是我们的目标

使用mtcars数据集head(mtcars)

在散点图上绘制一条简单的散点图和回归线.

X轴=wt，y轴=mpg
根据列vs中的值为散点图上色，vs=0点灰色，vs=1点=红色.
按组划分的回归线=gear(3条回归线)
根据列am中的值为回归线上色，am=0回归线=蓝色，am=1回归线=绿色.

到目前为止我的try .

任何关于如何做到这一点的建议都非常感谢.谢谢.

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

推荐答案

您可以使用{ggNewScale}程序包将两个不同的比例添加到同一个ggPlot对象.如果您想要 colored颜色类别，而不是连续的 colored颜色渐变，您还应该将列转换为系数/字符，而不是数字(在绘制绘图之前或之内).

示例:

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