<div dir="ltr"><div>Natalia,</div><div><br></div><div>Uma tentativa...</div><br><div><div><font face="courier new, monospace">### <code r></font></div><div><font face="courier new, monospace">dat <- structure(list(time = c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, </font></div>
<div><font face="courier new, monospace">2L, 2L, 4L, 4L, 4L, 4L, 4L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, </font></div><div><font face="courier new, monospace">8L), pH = c(5.8, 5.8, 5.8, 4.5, 4.5, 4.5, 4, 4, 4, 5, 5, 5, 5.8, </font></div>
<div><font face="courier new, monospace">5.8, 5.8, 4.5, 4.5, 5.8, 4.5, 4.5, 4.5, 4, 4, 4, 5, 5, 5), sinal = c(1L, </font></div><div><font face="courier new, monospace">1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, </font></div>
<div><font face="courier new, monospace">2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), SHAM = c(0.002, 0.003, </font></div><div><font face="courier new, monospace">0.008, 0.004, 0.002, 0.006, 0.043, 0.024, 0.039, 0.013, 0.008, </font></div>
<div><font face="courier new, monospace">0.004, 0.007, 0.001, 0.007, 0.017, 0.005, 0.019, 0.184, 0.188, </font></div><div><font face="courier new, monospace">0.198, 0.119, 0.134, 0.231, 0.072, 0.135, 0.123)), .Names = c("time", </font></div>
<div><font face="courier new, monospace">"pH", "sinal", "SHAM"), class = "data.frame", row.names = c(NA, </font></div><div><font face="courier new, monospace">-27L))</font></div><div>
<font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">dat$new <- with(dat, paste0(format(dat$pH, dig=2), " (", sinal, ")")); 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"><br></font></div><div><font face="courier new, monospace">bargraph.CI(x.factor=new, response=SHAM, group = time, data = dat, </font></div>
<div><font face="courier new, monospace"> xlab = "Tratamento", ylab = "Sham", cex.lab = 1.2, x.leg = 1, </font></div><div><font face="courier new, monospace"> col = c("gray18", "gray37", "gray60"), density = c(0,0.8), legend.text = NULL)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">legend("topright", c("2","4","8"), pch = c(15,15,15),</font></div><div><font face="courier new, monospace"> col=c("gray18","gray37","gray60"), title="Time (h)")</font></div>
</div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### </code></font></div><div><br></div></div><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 class="gmail_quote">Em 28 de janeiro de 2014 09:42, Natalia Martins <span dir="ltr"><<a href="mailto:nsmbarreto@gmail.com" target="_blank">nsmbarreto@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr"><div class="gmail_default" style="font-family:georgia,serif;font-size:large">Segue:</div><div class="gmail_default" style="font-family:georgia,serif;font-size:large"><br></div><div class="gmail_default"><div class="gmail_default">
<br></div><div class="gmail_default"><font face="georgia, serif" size="4"> time pH sinal SHAM</font></div><div class="gmail_default"><font face="georgia, serif" size="4">1 2 5.8 1 0.002</font></div><div class="gmail_default">
<font face="georgia, serif" size="4">2 2 5.8 1 0.003</font></div><div class="gmail_default"><font face="georgia, serif" size="4">3 2 5.8 1 0.008</font></div><div class="gmail_default"><font face="georgia, serif" size="4">4 2 4.5 1 0.004</font></div>
<div class="gmail_default"><font face="georgia, serif" size="4">5 2 4.5 1 0.002</font></div><div class="gmail_default"><font face="georgia, serif" size="4">6 2 4.5 1 0.006</font></div><div class="gmail_default">
<font face="georgia, serif" size="4">7 2 4.0 1 0.043</font></div><div class="gmail_default"><font face="georgia, serif" size="4">8 2 4.0 1 0.024</font></div><div class="gmail_default"><font face="georgia, serif" size="4">9 2 4.0 1 0.039</font></div>
<div class="gmail_default"><font face="georgia, serif" size="4">10 2 5.0 1 0.013</font></div><div class="gmail_default"><font face="georgia, serif" size="4">11 2 5.0 1 0.008</font></div><div class="gmail_default">
<font face="georgia, serif" size="4">12 2 5.0 1 0.004</font></div><div class="gmail_default"><font face="georgia, serif" size="4">13 4 5.8 1 0.007</font></div><div class="gmail_default"><font face="georgia, serif" size="4">14 4 5.8 1 0.001</font></div>
<div class="gmail_default"><font face="georgia, serif" size="4">15 4 5.8 1 0.007</font></div><div class="gmail_default"><font face="georgia, serif" size="4">16 4 4.5 1 0.017</font></div><div class="gmail_default">
<font face="georgia, serif" size="4">17 4 4.5 1 0.005</font></div><div class="gmail_default"><font face="georgia, serif" size="4">.</font></div><div class="gmail_default"><font face="georgia, serif" size="4">.</font></div>
<div class="gmail_default"><font face="georgia, serif" size="4">.</font></div><div class="gmail_default"><font face="georgia, serif" size="4"><div class="gmail_default">63 8 5.8 2 0.019</div><div class="gmail_default">
64 8 4.5 2 0.184</div><div class="gmail_default">65 8 4.5 2 0.188</div><div class="gmail_default">66 8 4.5 2 0.198</div><div class="gmail_default">67 8 4.0 2 0.119</div><div class="gmail_default">
68 8 4.0 2 0.134</div><div class="gmail_default">69 8 4.0 2 0.231</div><div class="gmail_default">70 8 5.0 2 0.072</div><div class="gmail_default">71 8 5.0 2 0.135</div><div class="gmail_default">
72 8 5.0 2 0.123</div><div class="gmail_default"><br></div><div class="gmail_default">o objetivo é fazer um grafico de barras em que no eixo y esteja a var. sham, no x pH e sinal e "para a legenda" time. </div>
</font></div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 28 de janeiro de 2014 10:33, Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><div dir="ltr">Natalia, bom dia!<div><br></div><div>Os códigos que postei são para postar três variáveis ou mais, justapostas, adicionando as barras de erros em cada uma delas. Poderia indicar o que você precisa diferenciar em relação aos gráficos gerados pela execução do código?</div>
<div><br></div><div>Adicionalmente, sugiro encaminhar uma amostra do seu dataset pra rodar o código.<div><br><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 class="gmail_quote"><br></div></div></div></div></div>
<br></div></div><div class="im">_______________________________________________<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" 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></div></blockquote></div><div class="im"><br><br clear="all">
<div><br></div>-- <br>
<div dir="ltr"><br>Natália Martins<br>Contato: (35) 91812482 <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></div>