barplot中使用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")