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.
Gilson, Envie o código reproduzível desde a geração de dados para serem plotados. Precisamos de dados para ver o gráfico. À 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 ==========================================================================
Walmes, Abaixo do mensagem encontram-se os dados e os comando que estou trabalhando. ---------- 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.
Gilson seu código é não reproduzível. Os dados existem na sua sessão R e não
na minha. Veja as mensagens de erro. Crie dados artificiais com
expand.grid+rnorm, sempre faço assim na lista. Ou use textconnection(), ou
coloque no corpo da mensagem (se for menor que 20 linhas) que uso
read.table("clipboard", ...)
> 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))
Erro em barplot(dados$chla, density = c(20), col = "black", angle = c(45),
:
objeto 'dados' não encontrado
> axis(1, at=1:3, labels=dados$esp)
Erro em as.graphicsAnnot(labels) : objeto 'dados' não encontrado
> par(new=TRUE)
Warning message:
In par(new = TRUE) : calling par(new=TRUE) with no plot
> barplot(dados$chlb, density=c(21), col="black", angle=c(100))
Erro em barplot(dados$chlb, density = c(21), col = "black", angle = c(100))
:
objeto 'dados' não encontrado
> axes=TRUE, frame=T, ann=F)
Erro: unexpected ',' in " axes=TRUE,"
> par(new=TRUE)
Warning message:
In par(new = TRUE) : calling par(new=TRUE) with no plot
> barplot(dados$caro, density=c(22), col="black", angle=c(200))
Erro em barplot(dados$caro, density = c(22), col = "black", angle = c(200))
:
objeto 'dados' não encontrado
>
À 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
==========================================================================
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.
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
Eu rodei este script, mas este comando não funcionou: axes=TRUE, frame=T, ann=F) 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
participantes (3)
-
Gilson Sanchez -
Mauro Sznelwar -
Walmes Zeviani