qqplot + geom_bar（） - 列的汇总栏/方面

Question

我还没有找到解决以下问题的方法。

我的data.frame看起来像这样：

df<-data.frame(cbind(c(1,2,3,4,5),c("A","A","B","A","B"),
                     c("known","unknown","unknown","known","known")))  
colnames(df)<- c("id","class","type") 
df  
id class    type  
1  1     A   known  
2  2     A unknown  
3  3     B unknown  
4  4     A   known  
5  5     B   known

我使用qplot创建类型的直方图：

qplot(class,data=df,facets=.~type)

此外，我正在寻找一个选项来添加一个＆＃34;汇总栏＆＃34;以及所有（已知和未知）类型中所有已知，所有未知和A，B，A和B的数量的概述。

我用ggplot()+geom_bar()尝试过，但我也失败了。

有什么想法吗？

Answer 1

实现所需结果的一种方法是创建多个图（使用ggplot），然后根据需要排列它们。包gridextra很好地做到了。

library(gridExtra)

#create the separate graphs you desire
all_types <- ggplot(df) + geom_bar(aes(x=class)) + ggtitle("All Types")
all_classes<- ggplot(df) + geom_bar(aes(x=type)) + ggtitle("All Classes A & B") 
facets <- ggplot(df) + geom_bar(aes(x=class)) + facet_grid(.~type) + ggtitle("Facet by Type")

#Now plot it all together
grid.arrange(all_types, all_classes, facets, ncol=2)

哪个收益率：