geom_point无法与ggMarginal一起正常使用

Question

这是我遇到的问题的代表：

piris <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) +
  geom_point(aes(fill = Species))
ggMarginal(piris, groupFill = TRUE, groupColour = TRUE)

结果图如下：

我想将geom_point中的点更改为pch = 21，填充表示Species（如上图所示），但填充color = "black"，以便每个点都有黑色边框。我的问题是，这样做会使我的边际密度图变黑：

piris <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) +
  geom_point(aes(fill = Species), pch = 21, color = "black")
ggMarginal(piris, groupFill = TRUE)

ggMarginal似乎正在查看边框颜色，而不是aes（color）。我从第二个图中删除了groupColor，因为将其设置为TRUE只会绘制一条大的黑色密度曲线。我有一种预感，这与groupColor和groupFill有关，但我根本无法弄清楚。任何帮助将不胜感激！

Answer 1

它用颜色按组填充边际密度图，但是它们的边界是黑色的：

piris <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) +
  geom_point(aes(colour=Species)) + 
  geom_point(pch = 21, colour = "black")
ggMarginal(piris, groupFill = TRUE)