ggplot: tần số tương đối của hai nhóm

Question

Tôi muốn một âm mưu như thế này ngoại trừ rằng mỗi khía cạnh khía cạnh 100%. Ngay bây giờ nhóm M là 0,05 + 0,25 = 0,30 thay vì 0,20 + 0,80 = 1,00.

df <- rbind(
    data.frame(gender=c(rep('M',5)), outcome=c(rep('1',4),'0')), 
    data.frame(gender=c(rep('F',10)), outcome=c(rep('1',7),rep('0',3))) 
) 

df 

ggplot(df, aes(outcome)) + 
    geom_bar(aes(y = (..count..)/sum(..count..))) + 
    facet_wrap(~gender, nrow=2, ncol=1) 

(Sử dụng y = ..density .. cho kết quả tồi tệ hơn.)

Answer 1

Tôi thường làm điều này bằng cách đơn giản precalculating các giá trị bên ngoài của ggplot2 và sử dụng stat = "identity":

df1 <- melt(ddply(df,.(gender),function(x){prop.table(table(x$outcome))}),id.vars = 1) 

ggplot(df1, aes(x = variable,y = value)) + 
    facet_wrap(~gender, nrow=2, ncol=1) + 
    geom_bar(stat = "identity") 

Answer 2

đây là một cách khác

ggplot(df, aes(outcome)) + 
    geom_bar(aes(y = ..count../sapply(PANEL, FUN=function(x) sum(count[PANEL == x])))) + 
    facet_wrap(~gender, nrow=2, ncol=1)