r - 如何从ggplot2图例中删除线条美感？

我有一个图，我想为这些点使用不同的颜色，但是根据所有点绘制线性回归:

library(ggplot2)

set.seed(1)

df <- data.frame(x=rnorm(100),
                 y=rnorm(100),
                 group=factor(rep(1:2,each=50)))

ggplot(df,aes(x=x,y=y,color=group)) +
  stat_smooth(aes(group=1), method="lm", fill=NA) +
  geom_point() + theme_bw()

问题是，当我使用stat_smooth()添加回归线时，它在图例中添加了我不需要的行。我无法覆盖颜色以从图例中删除线条，因为我需要这些点的颜色。如何从图例中删除线条但保留点数？

最佳答案

您需要做的就是将show.legend = FALSE添加到stat_smooth中:

ggplot(df, aes(x = x, y = y, color = group, group = 1)) +
    geom_smooth(method = "lm", se = FALSE, show.legend = FALSE) +
    geom_point() +
    theme_bw()

关于r - 如何从ggplot2图例中删除线条美感？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/35213468/