我想要这样的情节,除了每个方面的总和为 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.. 会产生更差的结果。)