<div dir="ltr"><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">Salve salve irmãos de R, </div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">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:#073763"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">#Simulando o banco<br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">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:#073763"><br></div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:#073763">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:#073763"><br></div><div><div dir="ltr" class="gmail_signature" data-smartmail="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>