qqplot + geom_bar() - 열의 요약 막대/패싯

Question

다음 문제에 대한 해결책을 찾지 못했습니다. "또한 나는 하나를 추가 할 수있는 옵션을 찾고 있어요

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

:

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를 사용

내 data.frame은 다음과 같습니다 요약 막대 "와 하나의"요약 패싯 "을 사용하여 모든 알려진 (알려진 또는 알 수없는) 유형의 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) 

이 어쨌든 당신이 원하는,하지만