<div dir="ltr">Boa tarde<div><br></div><div>A função paretoPlot do pacote pid, produz um gráfico com cores diferentes para os efeitos positivos e negativos.</div><div>Att</div><div>Elisa</div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 18 de fevereiro de 2016 13:20, Ari Clecius <span dir="ltr"><<a href="mailto:ari072000@yahoo.com.br" target="_blank">ari072000@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:HelveticaNeue-Light,Helvetica Neue Light,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif;font-size:16px"><div><span>Prezados colegas, este assunto me interessa, gostaria de saber como automatizar este gráfico, fiz um script, mas é todo manual, os gráficos de pareto dos pacotes não formatam por cor, seria possível visualizar os efeitos negativos e positivos em cores diferentes?</span></div><div><span><br></span></div><div><span>Att,</span></div><div></div><div> </div><div><span style="font-weight:bold;font-style:italic">Ari Clecius Alves de Lima</span><br style="font-weight:bold;font-style:italic"><span style="font-weight:bold;font-style:italic">Engenheiro Químico</span><br style="font-weight:bold;font-style:italic"><span style="font-weight:bold;font-style:italic">Me. Engenharia Civil<br></span><div><span style="font-style:italic;font-weight:bold">Dr.</span> <span style="font-style:italic;font-weight:bold">Engenharia Civil</span><br style="font-weight:bold;font-style:italic"><span style="font-weight:bold;font-style:italic">(085)84174333</span><br style="font-weight:bold;font-style:italic"><span style="font-weight:bold;font-style:italic">(085)33669042</span></div><div><span style="font-weight:bold;font-style:italic"><br></span></div><div><div><b><i>#############3</i></b></div><div><b><i>#A=temperatura</i></b></div><div><b><i>#B=vibração</i></b></div><div><b><i>#A<-c(20,20,60,60,20,20,60,60,20,20,60,60)</i></b></div><div><b><i>#B<-c(5,15,5,15,5,15,5,15,5,15,5,15)</i></b></div><div><b><i>#y<-c(74,50,46,34,68,48,44,32,65,51,40,26)</i></b></div><div><b><i><br></i></b></div><div><b><i>A<-c(-1,-1,1,1,-1,-1,1,1,-1,-1,1,1)</i></b></div><div><b><i>B<-c(-1,1,-1,1,-1,1,-1,1,-1,1,-1,1)</i></b></div><div><b><i>y<-c(74,50,46,34,68,48,44,32,65,51,40,26)</i></b></div><div><b><i>group<-c("A","B","C","D","A","B","C","D","A","B","C","D")</i></b></div><div><b><i>falha<-data.frame(A,B,y,group)</i></b></div><div><b><i>aov.2=aov(y~A+B+A*B, data=falha)</i></b></div><div><b><i>summary(aov.2)</i></b></div><div><b><i><br></i></b></div><div><b><i><br></i></b></div><div><b><i>efeitos<-2*(aov.2$coef[2:4])</i></b></div><div><b><i><br></i></b></div><div><b><i>#Estimativa da variância do erro experimental (s^2)</i></b></div><div><b><i>grau_L1<-2</i></b></div><div><b><i>grau_L2<-2</i></b></div><div><b><i>grau_L3<-2</i></b></div><div><b><i>grau_L4<-2</i></b></div><div><b><i>ag <- data.frame(aggregate(. ~ group, falha, function(x) c(mean = mean(x), sd = sd(x))))</i></b></div><div><b><i>s2<-(sum(2*(ag$y[,2])^2))/(grau_L1+grau_L2+grau_L3+grau_L4)</i></b></div><div><b><i><br></i></b></div><div><b><i>#syi^2=s2/n onde n é o número de replicatas(3)</i></b></div><div><b><i>#sy1^2=sy2^2=sy3^2=sy4^2=syq</i></b></div><div><b><i>#sy=raiz(syq)</i></b></div><div><b><i>n<-3</i></b></div><div><b><i>sy=sqrt(s2/n)</i></b></div><div><b><i><br></i></b></div><div><b><i>#t(ef)=ef/s(ef)</i></b></div><div><b><i>tefA=efeitos[1]/sy</i></b></div><div><b><i>tefB=efeitos[2]/sy</i></b></div><div><b><i>tefAB=efeitos[3]/sy</i></b></div><div><b><i><br></i></b></div><div><b><i><br></i></b></div><div><b><i>#Gráfico de pareto</i></b></div><div><b><i><br></i></b></div><div><b><i>f1<-c(tefA,tefB,tefAB);f1</i></b></div><div><b><i>z=data.frame(2*abs(f1))</i></b></div><div><b><i>z=t(z)</i></b></div><div><b><i>v1=sy*(qt(0.975,8))</i></b></div><div><b><i>coef3=sort(z)</i></b></div><div><b><i>coef3</i></b></div><div><b><i><br></i></b></div><div><b><i>#png(file = "pareto_ceto.png",res=300, width = 4, height = 4, units = 'in')</i></b></div><div><b><i>g=barplot(sort(z),horiz=TRUE,names.arg=c( rev(names(f1))),col=ifelse(sort(abs(f1))>v1,"blue","gray"),xlim=c(0,25))##xlim, ylim</i></b></div><div><b><i>box("plot", col="blue") </i></b></div><div><b><i>abline(v=v1,col="red",lty=2)</i></b></div><div><b><i>s=format(v1,digits=2)</i></b></div><div><b><i>text(6,1,label=expression("S"[ef]*" x t"[crit]*"="),cex=1)</i></b></div><div><b><i>text(9,1,label=s,cex=1)</i></b></div><div><b><i>mtext("Gráfico de pareto dos efeitos", side=3, line=2, cex=1.0, col="blue", outer=FALSE)</i></b></div><div><b><i>p=format(f1,scientific = TRUE)</i></b></div><div><b><i>legend(x=16,y=2,cex=0.6,bg="yellow",box.col="blue", legend=c( "A=-22.3","B=-16.0","AB=3.33" ), col="blue", lwd=1:2, lty=c(NA,NA,NA))</i></b></div><div dir="ltr"><b><i>#dev.off()</i></b></div></div></div> <div><br><br></div><div style="display:block"> <div style="font-family:HelveticaNeue-Light,Helvetica Neue Light,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif;font-size:16px"> <div style="font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif;font-size:16px"><div><div class="h5"> <div dir="ltr"><font size="2" face="Arial"> Em Quinta-feira, 18 de Fevereiro de 2016 10:18, Paulo Dick <<a href="mailto:paulopcdick@gmail.com" target="_blank">paulopcdick@gmail.com</a>> escreveu:<br></font></div> <br><br> </div></div><div><div><div class="h5"><div><div><div dir="ltr">Bom dia Ana Paula,<div><br clear="none"></div><div>Seu gráfico não aparece para mim.</div><div><br clear="none"></div><div>Sugiro também que envie a sintaxe que utilizou.</div><div><br clear="none"></div><div>Abraço</div></div><div><br clear="all"><div><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><b><br clear="none"></b></div><div dir="ltr"><b>Paulo Dick</b><div>Estatístico</div><div>Mestre em Epidemiologia em Saúde Pública</div><div>Tel.: (55 21) 99591-2716</div></div></div></div></div></div></div></div></div></div>
<br clear="none"><div>Em 17 de fevereiro de 2016 21:59, ana paula coelho madeira <span dir="ltr"><<a rel="nofollow" shape="rect" href="mailto:apcmadeira@hotmail.com" target="_blank">apcmadeira@hotmail.com</a>></span> escreveu:<br clear="none"><blockquote style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div><div dir="ltr">Prezados,<br clear="none"> <br clear="none">boa noite!<br clear="none"> <br clear="none">Construí um gráfico de Pareto utilizando a função paretoPlot e a saída é da forma:<br clear="none"><div style="display:inline-block"><span> </span> <div style="display:inline-block"><img width="430" height="430"></div> <span> </span></div> <br clear="none">Gostaria de fazer uma das seguintes alterações:<br clear="none"> <br clear="none">1) Apresentar as barras na horizontal; <br clear="none">ou<br clear="none">2) Colocar as estimativas na vertical ( para não ficar tão difícil de visualizar).<br clear="none"> <br clear="none">Desde já agradeço.<br clear="none"> <br clear="none">Att.,<span><font color="#888888"><br clear="none"> <br clear="none">Ana Paula <br clear="none"> </font></span></div></div></div>
<br clear="none">_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br clear="none"></blockquote></div><br clear="none"></div></div></div><br></div></div><div><div><div class="h5">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none"></div></div>Leia o guia de postagem (<a shape="rect" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forne� c�igo m�imo reproduz�el.</div><br><br></div> </div> </div> </div></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">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></div>