<div dir="ltr"><div class="gmail_default"><span style="font-family:georgia,serif;font-size:large">O código que usei foi este:</span></div><div class="gmail_default"><font face="georgia, serif" size="4"><br></font></div><div class="gmail_default">
<font face="georgia, serif" size="4">require</font><span style="font-family:georgia,serif;font-size:large">(sciplot)</span></div><div class="gmail_default"><font face="georgia, serif" size="4">bargraph.CI(pH, SHAM, group = time, data = sham, </font></div>
<div class="gmail_default"><font face="georgia, serif" size="4"><span class="" style="white-space:pre"> </span>xlab = "Tratamento", ylab = "Sham",</font></div><div class="gmail_default"><font face="georgia, serif" size="4"><span class="" style="white-space:pre"> </span>cex.lab = 1.2, x.leg = 1, </font></div>
<div class="gmail_default"><font face="georgia, serif" size="4"><span class="" style="white-space:pre"> </span>col = c("gray18", "gray37", "gray60"),</font></div><div class="gmail_default">
<font face="georgia, serif" size="4"><span class="" style="white-space:pre"> </span>density = c(0,0.8), legend.text = NULL)</font></div><div class="gmail_default"><font face="georgia, serif" size="4"><br></font></div>
<div class="gmail_default"><font face="georgia, serif" size="4">legend("topright", c("2","4","8"), </font></div><div class="gmail_default"><font face="georgia, serif" size="4"> pch = c(15,15,15),</font></div>
<div class="gmail_default"><font face="georgia, serif" size="4"><span class="" style="white-space:pre"> </span> col=c("gray18","gray37","gray60"), </font></div><div class="gmail_default"><font face="georgia, serif" size="4"><span class="" style="white-space:pre"> </span> title="Time (h)")</font></div>
<div class="gmail_default"><font face="georgia, serif" size="4"><br></font></div><div class="gmail_default"><font face="georgia, serif" size="4">sendo igual ao que você enviou Éder.</font></div><div class="gmail_default">
<font face="georgia, serif" size="4">Porém eu ainda gostaria de acrescentar os niveis de mais um fator no eixo x.</font></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-01-27 Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><font face="arial, helvetica, sans-serif">Um outro exemplo, dessa vez usando </font><font face="courier new, monospace">sciplot::bargraph.CI...</font></div>
<div><font face="courier new, monospace"><br></font></div>
<div><span style="font-family:'courier new',monospace">### <code r></span><br></div><div><font face="courier new, monospace">dURL <- '<a href="http://www.ualberta.ca/~ahamann/teaching/renr480/Lab5d.zip" target="_blank">http://www.ualberta.ca/~ahamann/teaching/renr480/Lab5d.zip</a>'</font></div>
<div><font face="courier new, monospace">download.file(dURL, basename(dURL), mode='wb')</font></div><div><font face="courier new, monospace">unzip(basename(dURL),'lentils.csv')</font></div><div><font face="courier new, monospace">dat <- read.table('lentils.csv', head=T, sep=',')</font></div>
<div><font face="courier new, monospace">attach(dat)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">require(sciplot)</font></div><div><font face="courier new, monospace">bargraph.CI(x.factor=FARM, group=VARIETY, response=YIELD, legend=T, </font></div>
<div><font face="courier new, monospace"> xlab="Location", ylab="Yield (kg/ha)", ylim=c(0,800), </font></div><div><font face="courier new, monospace"> cex.names=1, cex.lab=1, </font></div><div><font face="courier new, monospace"> x.leg=6, y.leg=700, cex.leg=1, leg.lab=c("Var A","Var B","Var C"), </font></div>
<div><font face="courier new, monospace"> col=grey.colors(3), </font></div><div><font face="courier new, monospace"> uc=T, lc=T, err.width=0.1, err.col="black", err.lty=1) </font></div><div><font face="courier new, monospace">### </code></font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="arial, helvetica, sans-serif">Fonte/Source: <a href="http://www.ualberta.ca/~ahamann/teaching/renr480/Lab5D.pdf" target="_blank">http://www.ualberta.ca/~ahamann/teaching/renr480/Lab5D.pdf</a><br>
</font></div><div class="im"><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br></div><div class="gmail_extra"><br></div><div class="gmail_extra"><br></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" 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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>
<div dir="ltr"><br>Natália Martins<br>Contato: (35) 91812482 <br></div>
</div>