从同一数据集的不同变量创建平滑图

Question

我正在尝试创建一个平滑图，其中颜色代表manufacturer，而线条代表disp和hwy之间的整体关系。我可以这样：

df <- subset(mpg, manufacturer==c("audi","chevrolet"))
df$year <- factor(df$year)
ggplot(df, aes(displ, hwy, color = manufacturer)) +
      geom_smooth(se = FALSE, method = lm)

现在我希望在上图中以df$year和audi相同的颜色绘制chevrolet。因此，1998有两条（2009和audi）红线，1998有两条（2009和chevrolet）蓝线。

我尝试将此行添加到上面的命令

+ geom_smooth(aes(color=year), se = FALSE, method = lm)

但是它为year创建了一个不同颜色的图例，而我希望这些线条与上图中的audi和chevrolet颜色匹配

Answer 1

怎么样？

p <- ggplot(df, aes(displ, hwy, color = manufacturer, 
                    linetype = year)) +
  geom_smooth(se = FALSE, method = lm) 
p