试图找出调查响应的条形图。每个方面都应该有问题的百分比答案，同时用受访者的数量注释每个方面。一切似乎都工作正常，直到添加带有 geom_text 的注释，这弄乱了比例。想不通为什么。
这似乎工作正常
ggplot(dat2, aes(Q1a)) +geom_bar(aes(y = ..prop.., group = D3b) ) +
coord_flip() + facet_wrap(~ D3b) + labs(x="",y="") +
scale_y_continuous(labels = percent)
给我这个，它的条形图按我需要的方式缩放
但是当我添加 geom_text 时，比例变得一团糟
ggplot(dat2, aes(Q1a)) +geom_bar(aes(y = ..prop.., group = D3b) )+
coord_flip() + facet_wrap(~ D3b) + labs(x="",y="") +
scale_y_continuous(labels = percent)+ geom_text(data=dat2.cor,
aes(x=0,y=0,label=n), nudge_x = 10, nudge_y=20,
colour="black",inherit.aes=FALSE)
像这样：
dat2.cor是我使用数据创建的一个单独的数据集，它对各个方面进行了注释，如下所示：
有人知道这里发生了什么吗？