Perfeito, deu certinho. Muito obrigada!!!
Em 28 de janeiro de 2014 11:27, Éder Comunello <[email protected]>escreveu: > Natalia, > > Uma tentativa... > > ### <code r> > dat <- structure(list(time = c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, > 2L, 2L, 4L, 4L, 4L, 4L, 4L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, > 8L), pH = c(5.8, 5.8, 5.8, 4.5, 4.5, 4.5, 4, 4, 4, 5, 5, 5, 5.8, > 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, > 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, > 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), SHAM = c(0.002, 0.003, > 0.008, 0.004, 0.002, 0.006, 0.043, 0.024, 0.039, 0.013, 0.008, > 0.004, 0.007, 0.001, 0.007, 0.017, 0.005, 0.019, 0.184, 0.188, > 0.198, 0.119, 0.134, 0.231, 0.072, 0.135, 0.123)), .Names = c("time", > "pH", "sinal", "SHAM"), class = "data.frame", row.names = c(NA, > -27L)) > > dat$new <- with(dat, paste0(format(dat$pH, dig=2), " (", sinal, ")")); dat > > require(sciplot) > > bargraph.CI(x.factor=new, response=SHAM, group = time, data = dat, > xlab = "Tratamento", ylab = "Sham", cex.lab = 1.2, x.leg = 1, > col = c("gray18", "gray37", "gray60"), density = c(0,0.8), > legend.text = NULL) > > legend("topright", c("2","4","8"), pch = c(15,15,15), > col=c("gray18","gray37","gray60"), title="Time (h)") > > ### </code> > > > Éder Comunello <c <[email protected]>[email protected]> > Dourados, MS - [22 16.5'S, 54 49'W] > > > Em 28 de janeiro de 2014 09:42, Natalia Martins > <[email protected]>escreveu: > > Segue: >> >> >> time pH sinal SHAM >> 1 2 5.8 1 0.002 >> 2 2 5.8 1 0.003 >> 3 2 5.8 1 0.008 >> 4 2 4.5 1 0.004 >> 5 2 4.5 1 0.002 >> 6 2 4.5 1 0.006 >> 7 2 4.0 1 0.043 >> 8 2 4.0 1 0.024 >> 9 2 4.0 1 0.039 >> 10 2 5.0 1 0.013 >> 11 2 5.0 1 0.008 >> 12 2 5.0 1 0.004 >> 13 4 5.8 1 0.007 >> 14 4 5.8 1 0.001 >> 15 4 5.8 1 0.007 >> 16 4 4.5 1 0.017 >> 17 4 4.5 1 0.005 >> . >> . >> . >> 63 8 5.8 2 0.019 >> 64 8 4.5 2 0.184 >> 65 8 4.5 2 0.188 >> 66 8 4.5 2 0.198 >> 67 8 4.0 2 0.119 >> 68 8 4.0 2 0.134 >> 69 8 4.0 2 0.231 >> 70 8 5.0 2 0.072 >> 71 8 5.0 2 0.135 >> 72 8 5.0 2 0.123 >> >> 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. >> >> >> Em 28 de janeiro de 2014 10:33, Éder Comunello >> <[email protected]>escreveu: >> >>> Natalia, bom dia! >>> >>> 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? >>> >>> Adicionalmente, sugiro encaminhar uma amostra do seu dataset pra rodar o >>> código. >>> >>> >>> Éder Comunello <c <[email protected]>[email protected]> >>> Dourados, MS - [22 16.5'S, 54 49'W] >>> >>> >>> >>> >>> _______________________________________________ >>> R-br mailing list >>> [email protected] >>> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br >>> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça >>> código mínimo reproduzível. >>> >> >> >> >> -- >> >> Natália Martins >> Contato: (35) 91812482 >> >> _______________________________________________ >> R-br mailing list >> [email protected] >> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br >> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça >> código mínimo reproduzível. >> > > > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > código mínimo reproduzível. > -- Natália Martins Contato: (35) 91812482
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
