r - ggplot : relative frequencies of two groups

Question

我想要一个这样的情节，除了每个方面的总和为 100%。现在 M 组是 0.05+0.25=0.30 而不是 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) 

(使用 y = ..density.. 给出更糟糕的结果。)

Answer 1

这是另一种方式

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)