[R-br] grafico de barras

[Éder Comunello]

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 <comunello.eder em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]


Em 28 de janeiro de 2014 09:42, Natalia Martins <nsmbarreto em gmail.com>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 <comunello.eder em 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.
>>
>>
>> Éder Comunello <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
>> Dourados, MS - [22 16.5'S, 54 49'W]
>>
>>
>>
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em 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.
>>
>
>
>
> --
>
> Natália Martins
> Contato: (35) 91812482
>
> _______________________________________________
> R-br mailing list
> R-br em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140128/4f55de9c/attachment.html>