使 stat_ellipse {ggplot2} 轮廓 geom_point 填充颜色答案

【问题标题】：Make stat_ellipse {ggplot2} outline geom_point fill color使 stat_ellipse {ggplot2} 轮廓 geom_point 填充颜色
【发布时间】：2020-04-15 19:11:42
【问题描述】：

我有一个包含 15 个分组的散点图。我正在使用geom_point() 和shape = 21，这样我就可以拥有填充和颜色（轮廓颜色）。我使用黑色作为轮廓颜色，以便在我的图例中的相似颜色之间提供更好的对比。但是，当我添加 stat_ellipse() 时，它会使椭圆轮廓变黑。

我想要这个，点周围有黑色轮廓：

groupings <- paste0("Group", 1:15)
iris$group <- rep(groupings, 10)

iris_plot <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point(aes(Sepal.Length, Sepal.Width, colour = factor(iris$group))) + stat_ellipse(data = iris, aes(color = factor(iris$group)))

iris_plot

但是当我在点周围添加黑色轮廓时，它会使我的椭圆变黑，使它们无法解释。

library(RColorBrewer)

groupings <- paste0("Group", 1:15)
iris$group <- rep(groupings, 10)

fill_colors <- scales::hue_pal()(15)
outline_colors <- rep("black", 15)

iris_plot <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point(aes(Sepal.Length, Sepal.Width, colour = factor(iris$group), fill = factor(iris$group)), shape = 21) + stat_ellipse(data = iris, aes(color = factor(iris$group))) + scale_colour_manual(name = "Grouping", labels = sort(unique(factor(iris$group))), values = outline_colors) + scale_fill_manual(name = "Grouping", labels = sort(unique(factor(iris$group))), values = fill_colors)

iris_plot

我不想要填充颜色，因为椭圆之间有太多重叠，以至于看不到任何东西。

感谢您的宝贵时间。

【问题讨论】：

标签： r ggplot2

【解决方案1】：

我认为geom_point需要在aes之外传递color，否则当你申请scale_color_manual时，它将同时适用于geom_point和stat_ellipse：

iris_plot <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + 
  geom_point(aes(Sepal.Length, Sepal.Width,fill = group), color = "black", shape = 21) + 
  stat_ellipse(data = iris, aes(color = group)) + 
  scale_fill_manual(name = "Grouping", labels = sort(unique(factor(iris$group))), values = fill_colors)+
  scale_color_manual(name = "Grouping", values = fill_colors,  labels = sort(unique(factor(iris$group))))

iris_plot

【讨论】：