2017-10-19 71 views
0

目前,我可以创造的情节:使用 enter image description here非绝对计数直方图的不平衡组

df %>% 
    ggplot(aes_string(age)) + 
    facet_wrap(~CUSTOMER_GROUP, scales="free") + 
    geom_histogram(binwidth = 3) + 
    scale_y_continuous(labels=percent) + 
    theme_igray() + 
    xlab("Age") + 
    ylab("") 

但是你看,这不占明智的百分比值。有没有解决方案来获得更有用的情节? 注意,我已经使用scales="free"

编辑

或许,还可以去鳞更良好的格式化没有.00

+0

您是否想要显示相对频率而不是计数? – bouncyball

+0

是的,这是我想完成 –

+1

这里有一个例子:'ggplot(diamonds,aes(price,..count ../ sum(.. count ..),group = cut,fill = cut))+ geom_histogram(binwidth = 500)+ facet_wrap(〜cut,scales ='free')' – bouncyball

回答

0

的解决方法是这两种方法结合起来:

scale_y_continuous(labels=percent) + 

对于实际百分比,可视化效果很好 和..count../sum(..count..

要正确使用aes_string在非标准评估模式"..count../......"只需引用整个事情。