单个图中类别数据的多个条形图

Question

我有三类数据，我想将它们绘制在一个图中

数据如下：

 output<-read.table(text=" Class Out1 Out2 E Apple Orange C Orange Apple B Orange Apple D Apple Orange D Orange Orange E Orange Apple D Apple Apple D Orange Orange E Orange Apple E Apple Orange E Orange Apple D Orange Apple B Apple Apple B Apple Apple A Orange Apple B Orange Orange D Orange Orange C Orange Orange D Apple Apple B Orange Orange E Orange Orange D Apple Apple C Apple Apple B Orange Apple D Orange Orange B Orange Apple B Apple Orange E Apple Orange B Orange Apple A Orange Orange ",header=TRUE)

我想得到下图，它是我的数据的原型表示。 我不需要在条形图的顶部有 A、B...，但条形图顶部的数字很有趣。

Answer 1

可能有一些更简单的解决方案，但这是其中之一。

从数据帧output中，您可以使用函数table计算每个输出中是否存在Apple和Orange 。 然后将这两个数据帧绑定到一个数据帧中，并使用pivot_longer和filter对其进行转换，以便为ggplot做好准备。

library(tidyverse)
# Couting occurence of Apple and Orange in each Out1 and Out2
o1 = as.data.frame.matrix(table(output[,1:2]))
o2 = as.data.frame.matrix(table(output[,c(1,3)]))
colnames(o1) = paste0("Out1_",colnames(o1))
colnames(o2) = paste0("Out2_", colnames(o2))

# Binding two matrix return by table
df = cbind("Class" = rownames(o1),o1,o2)

# Transform it in a longer format and filtering only rows of interest for ggplot
df <- df %>% pivot_longer(., -Class, names_to = "Variables",values_to = "Value") %>% filter(., Variables == "Out1_Apple" | Variables == "Out2_Orange")

然后绘制数据框，你可以这样做：

library(ggplot2)
labels = c("Out1_Apple" = "Out1: Apple", "Out2_Orange" = "Out2: Orange")
ggplot(data = df, aes(x =Class, y = Value, fill = as.factor(Class))) + 
  geom_bar(stat = "identity", position = position_dodge()) +
  facet_wrap(.~Variables, labeller = labeller(Variables = labels)) +
  labs(fill = "Class")+
  xlab("") +
  geom_text(aes(label=Value), vjust=-0.5, size=5)

并得到下图：

希望它能回答你的问题。