按组划分的真/假值计数条形图（斜线图）

Question

我对 R 和 ggplot 比较陌生。而且我不确定我想要的是否可行。

这是（一部分）我的数据：

> mdf
   Batch     A     B     C     D     E
1      G FALSE  TRUE FALSE  TRUE FALSE
2      G FALSE FALSE FALSE  TRUE FALSE
3      G FALSE  TRUE FALSE FALSE FALSE
4      G FALSE FALSE FALSE  TRUE FALSE
5      G FALSE FALSE  TRUE  TRUE  TRUE
6      G FALSE FALSE  TRUE  TRUE  TRUE
7      G FALSE FALSE FALSE FALSE  TRUE
8      G FALSE FALSE  TRUE  TRUE  TRUE
9      G FALSE FALSE FALSE  TRUE FALSE
10     G FALSE FALSE FALSE  TRUE  TRUE
11     G FALSE FALSE FALSE FALSE  TRUE
12     G FALSE FALSE FALSE  TRUE FALSE
13     G FALSE FALSE FALSE  TRUE FALSE
14     G FALSE FALSE FALSE  TRUE FALSE
15     G FALSE FALSE FALSE  TRUE FALSE
16     G FALSE FALSE FALSE  TRUE FALSE
17     G FALSE FALSE  TRUE  TRUE FALSE
18     G FALSE FALSE  TRUE  TRUE  TRUE
19     A FALSE FALSE FALSE  TRUE  TRUE
20     A FALSE FALSE FALSE  TRUE  TRUE

其中 Batch 可以是 A、B、G、R、S 中的任何一个，其他列 (AE) 都是布尔值/逻辑值。

我能够创建一个图表来计算 B 列中的 TRUE 值，如下所示：

使用：

ggplot(data = mdf, aes(x = Batch, y = as.numeric(B), fill = Batch))
    + stat_summary(fun.y = sum, geom = "bar")

同样，我可以轻松地为其他列（A、C、D、E）创建另外 4 个图形。

但是，是否可以将这 5 个图形“合并”在一个图形中？换句话说，我想要一个图表，其中我将有 5 个组（如上图所示）用于 'Batch' 的 5 个值，并且在每个组中，我需要一个单独的条形图，其中包含 5 列中每一列的计数(AE)。这是可行的吗？

更新：这是我正在寻找的（使用@mtoto 的建议后创建的）

Answer 1

是的，这是可能的，您只需要先重塑数据，然后就可position = "dodge"以为每个key. 与tidyr：

library(tidyr)
library(dplyr)
library(ggplot2)

mdf %>% gather(key, value, -Batch) %>%
  ggplot(.,(aes(Batch, as.numeric(value), fill = key))) +
  stat_summary(fun.y = sum, geom = "bar", position = "dodge")