<div dir="ltr"><div><br></div><div>Adicionei umas coisas</div><div><br>library(ggplot2)<br>ggplot(a, aes( x = Satisfaction, group=Visit)) +<br> geom_bar(aes(y = ..prop.., fill = factor(..x..)), stat="count") +<br> geom_text(aes(label = scales::percent(round(..prop..,2)),<br> y= ..prop.. ), stat= "count", vjust = -.5,<br> size = 3) +<br> theme_bw(15)+<br> theme(axis.text.x= element_text(angle=45, size = 10, hjust=1),<br> legend.position = "top",<br> strip.background = element_blank(),<br> panel.grid.major.x = element_blank(),<br> panel.grid.minor.x = element_blank(),<br> panel.grid.minor.y = element_blank(),<br> #panel.grid.major.y = element_line(linetype=2, size=1),<br> panel.grid.minor = element_blank(),<br> panel.grid.major = element_blank(),<br> legend.title = element_blank()) +<br> labs(y = "Percent", fill="Satisfaction") +<br> #facet_grid(~Visit+Intervention) +<br> facet_wrap(~Visit+Intervention,strip.position="top",ncol=10)+<br> scale_y_continuous(labels = scales::percent)+<br> scale_fill_manual(values = ramp(5),labels=levels(a$Satisfaction))<br><br> <br><div><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div style="text-align:left"><br></div><div style="text-align:center"><div style="text-align:left"><font color="#073763"><b><i>Cid Edson Mendonça Póvoas</i></b></font></div><div style="text-align:left"><font color="#073763"><b><i><br></i></b></font></div><div style="text-align:left"><b style="font-size:12.8px;color:rgb(7,55,99)"><i><a href="http://www.anovagro.com/" target="_blank">AnovAgro</a></i></b><br></div><div style="text-align:left"><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></div><div><div style="text-align:left"><i style="color:rgb(7,55,99)"><b>CREA :</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><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></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em ter., 21 de dez. de 2021 às 14:54, Felipe Barletta 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">Prezado Pedro,<div><br></div><div>Talvez esse código lhe sirva (com alguns ajustes de perfumaria nas legendas e eixos)</div><div><br></div><div>###########################################################################</div><div>library(ggplot2)</div><div>ggplot(a, aes( x = Satisfaction, group=Visit)) +<br> geom_bar(aes(y = ..prop.., fill = factor(..x..)), stat="count") +<br> geom_text(aes( label = scales::percent(..prop..),<br> y= ..prop.. ), stat= "count", vjust = -.5,<br> size = 2.5 ) +<br> theme(axis.text.x= element_text(angle=45, size = 8),<br> legend.title=element_blank()) +<br> labs(y = "Percent", fill="Satisfaction") +<br> facet_grid(~Visit+Intervention) +<br> scale_y_continuous(labels = scales::percent)<br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em ter., 21 de dez. de 2021 às 12:02, Pedro Emmanuel Alvarenga Americano do Brasil por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">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)">Amigos 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 num esforço de tentar aprender a usar o tidyverse. Gostaria de manter a consistência de um relatório que estou trabalhando com gráficos do ggplot. Mas há um particular gráfico de barras que não estou conseguindo fazer. Alguém pode me ajudar a fazer o gráfico no ggplot + geom_bar? Segue abaixo um exemplo como eu faria com o graphics.</div><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><br></div># Preparando os dados simulados<br>tab <- array(c(92,74,11,0,0,94,98,10,1,0,<br> 83,56,13,2,0,96,68,9,7,0,<br> 46,28,7,1,1,54,59,16,7,0,<br> 26,20,3,0,0,36,32,16,4,0,<br> 8,2,0,0,0,3,3,1,0,0), c(5, 2, 5))<br>dimnames(tab) <- list(c("Definitively satisfied",<br> "Satisfied",<br> "Little satisfied",<br> "Little dissatisfied",<br> "Definitively dissatisfied"),<br> c("Surface 1","Surface 2"),<br> c(1:5))<br>names(dimnames(tab)) <- c("Satisfaction","Intervention","Visit")<br>tab<br>a <- epitools::expand.table(tab)<br>a$Visit <- paste0("Visit ", a$Visit)<br>head(a)<br><br># Fazendo as tabelas ja com os percentuais<br>x <- sapply(unique(a$Visit), function(i) prop.table(table(a$Satisfaction[a$Visit==i],a$Intervention[a$Visit==i]),2), simplify = FALSE)<br><br># Criando o objeto height do barplot <br>y <- x[[1]] ; for(i in 2:length(x)) {y <- cbind(y,x[[i]])}<br>ramp <- colorRampPalette(c("darkgreen","red"))<br><br># Criando o gráfico<br>z <- barplot(y, beside = T, col = ramp(5),<br> legend = T,<br> args.legend = list(x="top",xpd=NA,inset=-.15,bty="n",cex=.8, ncol = 2),<br> axisnames = FALSE)<br>axis(2, at = seq(0,1,.025),labels = FALSE, tck = -.01)<br>text(z[3,], -.005, colnames(y), cex = .5, srt = 35, xpd = NA, adj = 1, offset = 5)<br>axis(1, at = sapply(seq(0,ncol(z)-2,2),function(i) mean(z[,c(1:2) + i])),labels = unique(a$Visit), line = 1.5, tick = FALSE)<br><div class="gmail_default" style="font-family:monospace,monospace;font-size:large;color:rgb(7,55,99)"><span style="font-family:Arial,Helvetica,sans-serif;font-size:small;color:rgb(34,34,34)">sapply(1:ncol(y), function(i) text(x = z[1:5,i], y = y[1:5,i], labels = round(y[1:5,i],2), pos = 3, cex = .5, xpd = NA))</span></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 a todos, </div><div><div dir="ltr"><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>
_______________________________________________<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>
_______________________________________________<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>