r - 制作成对的倒置直方图

Question

我想在一组不同的测试中为两组制作成对的点图直方图，两组在 y 轴上以相反的方向显示。使用这个简单的数据集

dat <- data.frame(score = rnorm(100), group = rep(c("Control", "Experimental"), 50), test = rep(LETTERS[1:2], each=50))

我可以像这样制作多面点图

ggplot(dat, aes(score, fill=group)) + facet_wrap(~ test) + geom_dotplot(binwidth = 1, dotsize = 1)

但我希望控制点指向下方而不是向上。使用这个问题和答案，我可以制作一个看起来或多或少像我想要的直方图版本

ggplot() + 
  geom_histogram(data=subset(dat, group=="Experimental"), aes(score, fill="Experimental", y= ..count..)) +
  geom_histogram(data=subset(dat, group=="Control"), aes(score, fill="Control", y= -..count..)) +
  scale_fill_hue("Group")

但现在刻面消失了。我知道我可以使用 手动进行刻面grid.arrange，但这会很费力（我的实际数据集有很多测试，而不仅仅是 2 个），有没有更优雅的解决方案？

两个后续问题：

1. geom_histogram给我一个警告，上面写着“当 ymin != 0 时堆叠定义不明确”。有谁知道它是如何“定义不明确”的？换句话说，这是我应该关心的事情吗？
2. 我更喜欢使用点图而不是直方图，但反转似乎不适用于点图。这是为什么？任何想法如何让它工作？

提前致谢！

Answer 1

仔细阅读geom_dotplot会带来好处：

ggplot() +
  facet_wrap(~test) +
  geom_dotplot(data=subset(dat, group=="Experimental"), aes(score, fill="Experimental")) +
  geom_dotplot(data=subset(dat, group=="Control"), aes(score, fill="Control"),stackdir = "down") +
  scale_fill_hue("Group")

我不知道stackdir我头脑中的争论。我必须查一下！