r - 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)

产生：