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")
