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)

此外，我正在寻找一个选项，以添加一个“汇总栏”和一个“汇总面”，以获得所有已知，所有未知和所有(已知和未知)类型的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)

这会产生：

​