<font face="trebuchet ms,sans-serif">Gilson,<br><br>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().<br>
<br><span style="font-family: courier new,monospace;">lines <- "esp chla chlb caro</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">especie1 0.25 0.08 0.09</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">especie2 0.18 0.06 0.06</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">especie3 0.21 0.06 0.07"</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">dados <- read.table(textConnection(lines), header=TRUE); closeAllConnections()</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">str(dados)</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">dados2 <- t(as.matrix(dados[,-1]))</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">colnames(dados2) <- dados$esp</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">bp <- barplot(dados2, beside=TRUE, col=1:3)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">legend("topright", legend=names(dados)[-1], fill=1:3)</span><br style="font-family: courier new,monospace;"><br>À disposição.<br>Walmes.<br><br clear="all"></font><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Walmes Marques Zeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">twitter: @walmeszeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">linux user number: 531218</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br>
<br><br><div class="gmail_quote">2011/6/3 Gilson Sanchez <span dir="ltr"><<a href="mailto:gilsonsch@gmail.com">gilsonsch@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<div><br>Diculpa Walmes, desta vez enviou os dados no link. O comando que estou trabalhando abaixo.</div><div class="im"><div> </div><div>barplot(dados$chla, density=c(20), col="black", angle=c(45),<br> xlab="Espécies", font.lab=2, axes=TRUE,<br>
ylab=expression(bold(Concentração~de~pigmentos~cloroplastídicos~(mu~mol~.~g^{-1}))),<br> ylim=c(0,0.5))<br> axis(1, at=1:3, labels=dados$esp)<br> par(new=TRUE)<br> barplot(dados$chlb, density=c(21), col="black", angle=c(100))<br>
axes=TRUE, frame=T, ann=F)<br> par(new=TRUE)<br> barplot(dados$caro, density=c(22), col="black", angle=c(200))</div><div> </div><div> </div></div><div><a href="http://www.datafilehost.com/download-7465b531.html" target="_blank">http://www.datafilehost.com/download-7465b531.html</a></div>
<div> </div><div>Abç's<br></div><div class="gmail_quote"><div class="im">---------- Forwarded message ----------<br>From: <b class="gmail_sendername">Gilson Sanchez</b> <span dir="ltr"><<a href="mailto:gilsonsch@gmail.com" target="_blank">gilsonsch@gmail.com</a>></span><br>
Date: 2011/6/3<br>Subject: grafico de barras<br>To: Grupo R-Br <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>><br><br><br></div><div><div></div><div class="h5"><div>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:</div>
<ol><li>quero colocar três barras (chla, chlb, caro) em cada espécie.</li><li>quero colocar os nomes das espécies no eixo x.</li><li>no titulo do eixo y = Concentração~de~pigmentos~cloroplastídicos~<font color="#ff0000">/</font>~(mu~mol~.~g^{-1}))), quero fazer quebra em <font color="#ff0000">"/"</font></li>
<li><div>colocar a legenda.</div></li></ol><div> </div><div>esp chla chlb caro<br>espécie1 0.25 0.08 0.09<br>espécie2 0.18 0.06 0.06<br>espécie3 0.21 0.06 0.07<br clear="all"></div><div> </div><div>
barplot(dados$chla, density=c(20), col="black", angle=c(45),<br> xlab="Espécies", font.lab=2, axes=TRUE,<br> ylab=expression(bold(Concentração~de~pigmentos~cloroplastídicos~(mu~mol~.~g^{-1}))),<br>
ylim=c(0,0.5))<br> axis(1, at=1:3, labels=dados$esp)<br> par(new=TRUE)<br> barplot(dados$chlb, density=c(21), col="black", angle=c(100))<br> axes=TRUE, frame=T, ann=F)<br> par(new=TRUE)<br>
barplot(dados$caro, density=c(22), col="black", angle=c(200))</div><div> </div><div>Acho que esta facil mas eu não estou conseguindo.</div><div>Obrigado mais uma vez pela ajuda.</div><div><br>-- <br></div>
<div>MSc. Gilson Sánchez Chia<br></div>
<p style="margin: 0cm 0cm 0pt;"><font face="Calibri" size="3">Laboratório de Fisiologia Vegetal</font></p>
<p style="margin: 0cm 0cm 0pt;"><font face="Calibri" size="3">Embrapa Amazônia Ocidental</font></p>
<p style="margin: 0cm 0cm 0pt;"><font face="Calibri" size="3">Fone: (92) 3303-7841</font></p>
<div>---<br><font color="#000099">Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.</font></div>
<div><span lang="en-us"><font color="#000099" face="arial,helvetica,sans-serif">Please consider the environment before printing this email.</font></span></div>
<div><span lang="en-us">
<div><span lang="en-us"><font color="#000099"><font face="arial,helvetica,sans-serif">Renew, Reduce and Recycle. The Planet Knows.</font></font></span></div></span></div><br>
</div></div></div><div><div></div><div class="h5"><br><br clear="all"><br>-- <br><div>MSc. Gilson Sánchez Chia<br></div>
<p style="margin: 0cm 0cm 0pt;"><font face="Calibri" size="3">Laboratório de Fisiologia Vegetal</font></p>
<p style="margin: 0cm 0cm 0pt;"><font face="Calibri" size="3">Embrapa Amazônia Ocidental</font></p>
<p style="margin: 0cm 0cm 0pt;"><font face="Calibri" size="3">Fone: (92) 3303-7841</font></p>
<div>---<br><font color="#000099">Antes de imprimir, pense na sua responsabilidade com o Meio Ambiente.</font></div>
<div><span lang="en-us"><font color="#000099" face="arial,helvetica,sans-serif">Please consider the environment before printing this email.</font></span></div>
<div><span lang="en-us">
<div><span lang="en-us"><font color="#000099"><font face="arial,helvetica,sans-serif">Renew, Reduce and Recycle. The Planet Knows.</font></font></span></div></span></div><br>
</div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
<br></blockquote></div><br>