r - 如何将ggplot2的geom_dotplot()与填充和组一起使用

Question

我非常喜欢ggplot2::geom_dotplot()可以很好地将点堆叠到类别中间的方式，但是我似乎无法将其与填充颜色结合使用。

让我们看一个例子：

# test data
tmpData <- data.frame(x=c(rep('x', 3),rep('y', 3)), y=c(1,1,2,1,2,2), fill=rep(c('A', 'B', 'B'), 2))

# Plot without fill color
ggplot(tmpData, aes(x=x, y=y)) + 
    geom_dotplot(binaxis = "y", stackdir = "center", dotsize=4)

产生此图：



但是当我添加fill参数时：

ggplot(tmpData, aes(x=x, y=y, fill=fill)) +   
   geom_dotplot(binaxis = "y", stackdir = "center", dotsize=4)

填充似乎覆盖了对“ x”进行的分组，导致两个点（x，1）（x，1）折叠了，我希望它们具有不同的颜色。



当我尝试指定组时，填充颜色将被忽略：

ggplot(tmpData, aes(x=x, y=y, group=x, fill=fill)) +
    geom_dotplot(binaxis = "y", stackdir = "center", dotsize=4)

启用堆栈组似乎可以避免崩溃：

ggplot(tmpData, aes(x=x, y=y, fill=fill)) +
    geom_dotplot(binaxis = "y", stackgroups=TRUE, stackdir = "center", dotsize=4)

但是随后，我将数据的中心丢失到了在其他3个图中找到的“ x”和“ y”。

有没有办法在两个组中同时使用 geom_dotplot()和填充？

Answer 1

如果您愿意接受一些棘手的解决方案，只是想让它看起来像您一样...您可以通过简单地为其提供颜色名称矢量来覆盖fill命令：

tmpData$colorname <- rep(c('red','blue','blue'),2)

ggplot(tmpData, aes(x=x, y=y)) + 
  geom_dotplot(binaxis = "y", stackdir = "center", dotsize=4, fill=tmpData$colorname)