GGPLOT2：在每个箱

Question

例如我们平常堆积条形图因子的单级的分数barplot：

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

我想使同样的情节，但它只留下“切”类型之一。例如“理想”（紫色）。因此，它应该是像所有其他具有相同颜色的钻石中理想钻石分数的直方图。我可以在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()