r - 带有ggplot2的条形图中的百分比标签

Question

我使用ggplot2制作了下图。我寻求的是为每个条添加带有百分比的标签。

cat.ocup.grafico<-ggplot(subset(casen8va, !is.na(o15)), 
aes(factor(o15), weight=expr))+
geom_bar(aes(y =(..count..)/sum(..count..)), fill="blue")+
ylab("Porcentaje")+xlab("Categoría Ocupacional")+coord_flip()

为此，我尝试使用以下代码。但是由于某种原因，这些条被删除了。

有人能帮我吗？

cat.ocup.grafico+geom_text(aes(label =ifelse((..count..)==0,"",
scales::percent((..count..)/sum(..count..)))), 
stat="count",colour="darkgreen")