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>Em 28 de janeiro de 2014 09:42, Natalia Martins <nsmbarreto@gmail.com> escreveu:Segue:time pH sinal SHAM1 2 5.8 1 0.0022 2 5.8 1 0.0033 2 5.8 1 0.0084 2 4.5 1 0.0045 2 4.5 1 0.0026 2 4.5 1 0.0067 2 4.0 1 0.0438 2 4.0 1 0.0249 2 4.0 1 0.03910 2 5.0 1 0.01311 2 5.0 1 0.00812 2 5.0 1 0.00413 4 5.8 1 0.00714 4 5.8 1 0.00115 4 5.8 1 0.00716 4 4.5 1 0.01717 4 4.5 1 0.005...63 8 5.8 2 0.01964 8 4.5 2 0.18465 8 4.5 2 0.18866 8 4.5 2 0.19867 8 4.0 2 0.11968 8 4.0 2 0.13469 8 4.0 2 0.23170 8 5.0 2 0.07271 8 5.0 2 0.13572 8 5.0 2 0.123o 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 <comunello.eder@gmail.com> 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._______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
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
R-br@listas.c3sl.ufpr.br
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
R-br@listas.c3sl.ufpr.br
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.