ggplot2 : 예를 들어

Question

우리가 보통 누적 막대 그래프를 한 각 빈에있는 요소의 단일 레벨의 분수의 barplot :

ggplot(diamonds, aes(x=color, fill=cut))+geom_bar(position="fill") 

그리고 내가 같은 플롯을 만에 마칠 만 "Cut"유형 중 하나입니다. 예를 들어 "이상적인"(보라색). 따라서, 그것은 같은 색을 가진 다른 모든 다이아몬드들 중에서 이상적인 다이아몬드의 일부에 대한 히스토그램과 같아야합니다. ggplot에서이 작업을 수행 할 수 있습니까? 당신이 데이터를 미리 요약하면

Answer 1

, 그것은 간단하다 : 예, 물론

library("plyr") 

idl <- ddply(diamonds, .(color), summarize, 
      idealpct = sum(cut=="Ideal")/length(cut)) 

ggplot(idl, aes(x=color, y=idealpct)) + 
    geom_bar()