geom_point 无法与 ggMarginal 一起正常工作答案

【问题标题】：geom_point not working correctly with ggMarginalgeom_point 无法与 ggMarginal 一起正常工作
【发布时间】：2019-02-02 07:14:09
【问题描述】：

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

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 有关，但我根本想不通。任何帮助将不胜感激！

【问题讨论】：

标签： r ggplot2

【解决方案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)

【讨论】：

太棒了！谢谢@tmfmnk。我通过添加两个单独的 geom_points geom_point(aes(color = Species)) + geom_point() 发现，我几乎可以获得与 pch=21 相同的效果，并且密度图上没有黑色边框
@Ryan 更短的版本是：ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) + geom_point(aes(colour = Species)) + geom_point() 仅使用一次colour。