v1 = c("Sim","Não","Não","Não","Não","Sim","Sim","Sim","Sim","Sim")
v2 = c("branco","branco","pardo","preto","pardo","pardo","preto","branco","preto","pardo")
dados = data.frame(v1,v2)
Estou querendo construir um gráfico de barras com frequências relativas totalizando 100% dentro de cada categoria da variável v1 (Sim/Não).
Tentei assim:
ggplot(dados,aes(x=as.factor(v2),y=percent())) +
geom_bar(aes(y = (..count..)/sum(..count..))) +
geom_text(aes(y = ((..count..)/sum(..count..)),
label=scales::percent((..count..)/sum(..count..))),stat="count", vjust = -0.25)+
scale_y_continuous(labels = percent) + labs(y = "Percentual",x="Raça/Cor")+
facet_grid(.~v1)
Mas não está totalizando 100% dentro de cada categoria de v1. Alguma ajuda?