带有刻面条纹的geom_text混乱了鳞片

Question

试图找出调查回复的情节。每个方面都应该具有问题的答案百分比，同时用响应者的数量注释每个方面。一切似乎工作正常，直到使用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是我使用数据创建的单独数据集，注释了如下所示的构面：

有人知道这里有什么意思吗？