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@ufpr.br
twitter: @walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
==========================================================================


2011/6/3 Gilson Sanchez <gilsonsch@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@gmail.com>
Date: 2011/6/3
Subject: grafico de barras
To: Grupo R-Br <r-br@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@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br