geom_smooth线条的颜色与散点图不同怎么办？

Question

由于某些原因，在我的图表中，geom_smooth线条的颜色与阴影区域的颜色不同。我不确定是什么原因导致了这种情况。例如，蓝色的“已退休”阴影区域有一条绿色的线条，而绿色的“未签名”阴影区域有一条蓝色的线条。只有“活跃”状态是正确的。

qb_height_rating_scat <- ggplot(qb_stats, aes( x = height_in_inches, y = passer_rating, fill = current_status) )

qb_height_rating_scat + geom_point(shape=21, size=2.5) + 
  stat_smooth(method=loess,size=1.2, span=.6, aes (color = current_status)) +
  labs(x = "Height in Inches", y = "Average QB Passer Rating", title = "Average QB Passer Rating to Height Relationship") + 
  scale_fill_brewer(palette = "Set1")

这是csv文件。

感谢任何想法。

- Tyson Van Patten

---

可能是因为您更改了填充默认值，但未更改颜色？即尝试添加scale_colour_brewer(palette = "Set1")。 - user20650

@user20650 确实是这个原因；要发表为答案吗？ - Maurits Evers

这就是了，请将其发布为答案。 - Tyson Van Patten

Answer 1

问题在于您更改了默认的填充颜色，但没有更改边框颜色。

使用鸢尾花数据集

p <- ggplot(iris, aes(Sepal.Width, Sepal.Length, fill=Species)) +
            geom_point(shape=21, size=2.5) + 
            stat_smooth(method=loess,size=1.2, span=.6,aes (color=Species)) + 
            scale_fill_brewer(palette = "Set1")

现在，fill和colour这两个美学元素被映射到不同的颜色方案中。 要么删除有问题的scale_fill_brewer，要么添加另一个colour的颜色方案。

p <- p + scale_colour_brewer(palette = "Set1")

- user20650