[R-br] Fwd: grafico de barras

[Walmes Zeviani]

Gilson,

Tô achando que você precisa ir mais à fundo na documentação das funções. Os
exemplos da barplot() eram suficientes para você ter resolvido a sua dúvida.
Veja como passar um CMR usando o textConnection().

lines <- "esp        chla    chlb    caro
especie1    0.25    0.08    0.09
especie2    0.18    0.06    0.06
especie3    0.21    0.06    0.07"

dados <- read.table(textConnection(lines), header=TRUE);
closeAllConnections()
str(dados)

dados2 <- t(as.matrix(dados[,-1]))
colnames(dados2) <- dados$esp
bp <- barplot(dados2, beside=TRUE, col=1:3)
legend("topright", legend=names(dados)[-1], fill=1:3)

À disposição.
Walmes.

==========================================================================
Walmes Marques Zeviani
LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)
Departamento de Estatística - Universidade Federal do Paraná
fone: (+55) 41 3361 3573
VoIP: (3361 3600) 1053 1173
e-mail: walmes em ufpr.br
twitter: @walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
==========================================================================


2011/6/3 Gilson Sanchez <gilsonsch em gmail.com>

>
> Diculpa Walmes, desta vez enviou os dados no link. O comando que estou
> trabalhando abaixo.
>
> barplot(dados$chla, density=c(20), col="black", angle=c(45),
> xlab="Espécies", font.lab=2, axes=TRUE,
>
> ylab=expression(bold(Concentração~de~pigmentos~cloroplastídicos~(mu~mol~.~g^{-1}))),
> ylim=c(0,0.5))
> axis(1, at=1:3, labels=dados$esp)
> par(new=TRUE)
> barplot(dados$chlb, density=c(21), col="black", angle=c(100))
> axes=TRUE, frame=T, ann=F)
> par(new=TRUE)
> barplot(dados$caro, density=c(22), col="black", angle=c(200))
>
>
> http://www.datafilehost.com/download-7465b531.html
>
> Abç's
> ---------- Forwarded message ----------
> From: Gilson Sanchez <gilsonsch em gmail.com>
> Date: 2011/6/3
> Subject: grafico de barras
> To: Grupo R-Br <r-br em listas.c3sl.ufpr.br>
>
>
> Pessoal, mais uma vez na procura de vc's, é a primeira vez que quero fazer
> um grafico de barras e eu não sei se eu estou fazendo certo ou errado. Então
> eu quero fazer um grafico com as seguintes atribuições:
>
>    1. quero colocar três barras (chla, chlb, caro) em cada espécie.
>    2. quero colocar os nomes das espécies no eixo x.
>    3. no titulo do eixo y = Concentração~de~pigmentos~cloroplastídicos~/~(mu~mol~.~g^{-1}))),
>    quero fazer quebra em "/"
>    4. colocar a legenda.
>
>
> esp           chla   chlb  caro
> espécie1  0.25   0.08  0.09
> espécie2  0.18   0.06  0.06
> espécie3  0.21   0.06  0.07
>
> barplot(dados$chla, density=c(20), col="black", angle=c(45),
>         xlab="Espécies", font.lab=2, axes=TRUE,
>
> ylab=expression(bold(Concentração~de~pigmentos~cloroplastídicos~(mu~mol~.~g^{-1}))),
>         ylim=c(0,0.5))
>         axis(1, at=1:3, labels=dados$esp)
>         par(new=TRUE)
>         barplot(dados$chlb, density=c(21), col="black", angle=c(100))
>         axes=TRUE, frame=T, ann=F)
>         par(new=TRUE)
>         barplot(dados$caro, density=c(22), col="black", angle=c(200))
>
> Acho que esta facil mas eu não estou conseguindo.
> Obrigado mais uma vez pela ajuda.
>
> --
> MSc. Gilson Sánchez Chia
>
> Laboratório de Fisiologia Vegetal
>
> Embrapa Amazônia Ocidental
>
> Fone: (92) 3303-7841
> ---
> Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.
> Please consider the environment before printing this email.
>  Renew, Reduce and Recycle. The Planet Knows.
>
>
>
>
> --
> MSc. Gilson Sánchez Chia
>
> Laboratório de Fisiologia Vegetal
>
> Embrapa Amazônia Ocidental
>
> Fone: (92) 3303-7841
> ---
> Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.
> Please consider the environment before printing this email.
>  Renew, Reduce and Recycle. The Planet Knows.
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110603/14ff06bd/attachment-0001.html>