<div dir="ltr"><br>dados_prop <- df %>%<br> group_by(Visitas, Classificacao) %>%<br> summarise(count = n()) %>%<br> mutate(prop = count / sum(count)) %>% as.data.frame() %>% droplevels()<br><br>ggplot(dados_prop, aes(x = Visitas, y = prop, fill = Classificacao)) +<br> geom_bar(stat = "identity", position = "stack") +<br> scale_fill_manual(values = ramp(4)) +<br> labs(x = "Visitas", y = "Proporção", fill = "Classificação") +<br> scale_y_continuous(labels = scales::percent, limits = c(0,1)) +<br> theme_minimal()<br><br><br><br>ggplot(dados_prop, aes(x = Visitas, y = prop, fill = Classificacao)) +<br> geom_bar(stat = "identity", position = "dodge") +<br> scale_fill_manual(values = ramp(4)) +<br> labs(x = "", y = "Proporção", fill = "Classificação") +<br> scale_y_continuous(labels = scales::percent, limits = c(0,1)) +<br> theme_classic()+<br> theme(legend.position = "top")<br><div><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><br><div><div><font color="#073763"><b><i>Cid Edson Mendonça Póvoas</i></b></font></div><div><font color="#073763"><b><i><br></i></b></font></div><div><b><i><font color="#073763">Engenheiro Agrônomo - </font></i></b><i style="color:rgb(7,55,99)"><b>Data Scientist</b></i><b><i><font color="#073763"> </font></i></b><br></div><div style="text-align:center"><div style="text-align:left"><i style="color:rgb(7,55,99)"><b>CREA-BA:</b> 051984991-4</i><b><font color="#073763"><i><br></i></font></b></div><div style="text-align:left"><b><font color="#073763"><i>Técnico em Segurança do Trabalho </i></font></b><br></div><div style="text-align:left"><i style="color:rgb(7,55,99)"><b>Nº: </b></i><span style="text-align:center"><font color="#073763"><i>0012669/BA</i></font></span></div><div style="text-align:left"><i style="color:rgb(7,55,99)"><b>Tel: </b>+55 73 99151-9565</i></div><div style="text-align:left"><font color="#073763"><span style="font-size:12.8px"><b>Lattes : </b></span><span style="font-size:12.8px"><a href="http://lattes.cnpq.br/2303498368142537" target="_blank">http://lattes.cnpq.br/2303498368142537</a></span><br></font></div></div><div style="text-align:center"><div><div style="text-align:left"><span style="font-size:12.8px"><font color="#073763"><b>LinkedIn :</b> <a href="http://br.linkedin.com/in/cidedson/" target="_blank">http://br.linkedin.com/in/cidedson/</a></font></span></div><div style="text-align:left"><font color="#073763"><b>Whatsapp :</b> <a href="https://wa.me/5573991519565" target="_blank">https://wa.me/5573991519565</a></font></div></div></div></div></div></div></div><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em ter., 21 de mai. de 2024 às 17:37, Pedro Emmanuel Alvarenga Americano do Brasil por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Turminha, </div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Só pra ficar mais fácil de entender, se fosse no graphics, ficaria mais ou menos assim: </div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">barplot(prop.table(tab,2),<br> ylim = c(0,1),<br> beside = T, <br> legend.text = c("Não informado","Definitivamente insatisfeito","Insatisfeito","Nem satisfeito, nem insatisfeito","Satisfeito","Definitivamente satisfeito"), <br> col = ramp(6), <br> args.legend = list(fill = ramp(6), x = "top", bty = "n", inset = -.15, xpd = NA, ncol = 2))<br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div><div dir="ltr" class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066" size="4">Pedro Brasil</font></div></div></div></div></div></div></div></div><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em ter., 21 de mai. de 2024 às 17:06, Pedro Emmanuel Alvarenga Americano do Brasil <<a href="mailto:emmanuel.brasil@gmail.com" target="_blank">emmanuel.brasil@gmail.com</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Salve salve irmãos de R, </div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Estou batendo a cabeça pra acertar um gráfico de barras. Eu gostaria que houvesse um grupo de 6 barras (categorias) por visita, ou seja, em cada janela de visita houvesse 6 barras. Cada barra de uma cor pra poder fazer a legenda correspondente. E as barras precisariam corresponder com as frequências das categorias nas visitas. Acho que o problema é que há algumas categorias que são zero, mas elas deveriam aparecer no gráfico e na legenda mesmo assim. Mas quando eu consigo fazer as frequências, as cores ficam ruins e quando eu consigo aproximar as cores as frequências vão embora. O mais próximo que consegui foi assim:</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">#Simulando o banco<br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">tab <- array(c(0,0,0,1,34,46,0,0,0,2,24,19,0,0,1,7,6,2), c(6,3))<br>dimnames(tab) <- list(c("Não informado","Definitivamente insatisfeito","Insatisfeito","Nem satisfeito, nem insatisfeito","Satisfeito","Definitivamente satisfeito"), c("Visita 2", "Visita 3", "Visita 4"))<br>names(dimnames(tab)) <- c("Classificacao", "Visitas")<br>tab<br>df <- epitools::expand.table(tab)<br>df<br>levels(df$Classificacao)<br>prop.table(table(df$Classificacao, df$Visitas),2)<br><br># O grafico<br>ramp <- colorRampPalette(c("red","green"))<br><br>library(tidyverse)<br>ggplot(df,<br> aes(x = Classificacao)) +<br> facet_grid(cols = vars(Visitas)) +<br> geom_bar(aes(y = after_stat(prop),<br> fill = Classificacao,<br> group = 1)) +<br> scale_y_continuous(labels = scales::percent) +<br> labs(y = "Percentual da satisfação", x = "", fill = "Satisfação") + #<br> scale_x_discrete(drop = FALSE) +<br> scale_fill_discrete(drop = FALSE) +<br> scale_fill_manual(values = ramp(length(levels(df$Classificacao)))) # <br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)">Abraço forte e que a força esteja sempre com voces. </div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div><div><div dir="ltr" class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><font face="'courier new', monospace" style="background-color:rgb(255,255,255)" color="#000066" size="4">Pedro Brasil</font></div></div></div></div></div></div></div></div></div>
</blockquote></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>