Gráficos de barra com duas variáveis sendo comparada
Caros Membros da Lista, Tenho o seguinte grupo de dados: 0 - 10 10 - 20 Mata Nativa 10.046667 7.600000 Citrus 37 12.363333 23.126667 Citrus 37 15.326667 27.580000 Citrus 24 4.380000 8.856667 Citrus 18 10.430000 21.576667 Citrus 31 9.196667 18.036667 Pasto 37 6.690000 12.533333 Eu gostaria de plotar esses dados em um único gráfico de barras, sendo que as barra correspondente a "Mata nativa" nas camadas 0-10 e 10-20 ficassem lado a lado, e o mesmo para as outras classe. Alguém poderia me dar uma ajuda? Desde já agradeço. -- *Rodrigo A. Muniz* Eng. Agrônomo. Ms Produção Vegetal (UENF) Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP) Cel (19) 8300-4333 (Pessoal) Tel (19) 3375-1196 (Residêncial) Tel (19) 3447-8537 (Trabalho)
Usando o pacote ggplot2: dados <- read.table(text='Classe 0-10 10-20 Mata_Nativa 10.046667 7.600000 Citrus_37 12.363333 23.126667 Citrus_37 15.326667 27.580000 Citrus_24 4.380000 8.856667 Citrus_18 10.430000 21.576667 Citrus_31 9.196667 18.036667 Pasto_37 6.690000 12.533333', header=TRUE) # Lendo os dados. Pelo que eu entendi, tu tem um banco levemente diferente () dados <- cbind(dados, id=1:nrow(dados)) # Já qie tem 2 'Citrus 31', tive que criar uma variavel auxiliar como id, se nao usaria a variavel 'Classe' dados <- reshape(dados, varying=list(c('X0.10', 'X10.20')), direction='long', idvar='id', timevar='Camada', times=c('0 - 10', '10 - 20')) require(ggplot2) ggplot(aes(x=Classe, y=X0.10, fill=Camada), data=dados) + geom_bar(position='dodge', stat='identity') 2013/11/2 Rodrigo Muniz <uenf.rodrigo@gmail.com>
Caros Membros da Lista, Tenho o seguinte grupo de dados:
0 - 10 10 - 20 Mata Nativa 10.046667 7.600000 Citrus 37 12.363333 23.126667 Citrus 37 15.326667 27.580000 Citrus 24 4.380000 8.856667 Citrus 18 10.430000 21.576667 Citrus 31 9.196667 18.036667 Pasto 37 6.690000 12.533333
Eu gostaria de plotar esses dados em um único gráfico de barras, sendo que as barra correspondente a "Mata nativa" nas camadas 0-10 e 10-20 ficassem lado a lado, e o mesmo para as outras classe. Alguém poderia me dar uma ajuda? Desde já agradeço.
-- *Rodrigo A. Muniz* Eng. Agrônomo. Ms Produção Vegetal (UENF) Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP) Cel (19) 8300-4333 (Pessoal) Tel (19) 3375-1196 (Residêncial) Tel (19) 3447-8537 (Trabalho)
_______________________________________________ R-br mailing list R-br@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.
RESOLVIDO. OBRIGADO 2013/11/2 Rodrigo Coster <rcoster@gmail.com>
Usando o pacote ggplot2:
dados <- read.table(text='Classe 0-10 10-20 Mata_Nativa 10.046667 7.600000 Citrus_37 12.363333 23.126667 Citrus_37 15.326667 27.580000 Citrus_24 4.380000 8.856667 Citrus_18 10.430000 21.576667 Citrus_31 9.196667 18.036667 Pasto_37 6.690000 12.533333', header=TRUE) # Lendo os dados. Pelo que eu entendi, tu tem um banco levemente diferente ()
dados <- cbind(dados, id=1:nrow(dados)) # Já qie tem 2 'Citrus 31', tive que criar uma variavel auxiliar como id, se nao usaria a variavel 'Classe' dados <- reshape(dados, varying=list(c('X0.10', 'X10.20')), direction='long', idvar='id', timevar='Camada', times=c('0 - 10', '10 - 20'))
require(ggplot2) ggplot(aes(x=Classe, y=X0.10, fill=Camada), data=dados) + geom_bar(position='dodge', stat='identity')
2013/11/2 Rodrigo Muniz <uenf.rodrigo@gmail.com>
Caros Membros da Lista, Tenho o seguinte grupo de dados:
0 - 10 10 - 20 Mata Nativa 10.046667 7.600000 Citrus 37 12.363333 23.126667 Citrus 37 15.326667 27.580000 Citrus 24 4.380000 8.856667 Citrus 18 10.430000 21.576667 Citrus 31 9.196667 18.036667 Pasto 37 6.690000 12.533333
Eu gostaria de plotar esses dados em um único gráfico de barras, sendo que as barra correspondente a "Mata nativa" nas camadas 0-10 e 10-20 ficassem lado a lado, e o mesmo para as outras classe. Alguém poderia me dar uma ajuda? Desde já agradeço.
-- *Rodrigo A. Muniz* Eng. Agrônomo. Ms Produção Vegetal (UENF) Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP) Cel (19) 8300-4333 (Pessoal) Tel (19) 3375-1196 (Residêncial) Tel (19) 3447-8537 (Trabalho)
_______________________________________________ R-br mailing list R-br@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.
_______________________________________________ R-br mailing list R-br@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.
-- *Rodrigo A. Muniz* Eng. Agrônomo. Ms Produção Vegetal (UENF) Doutorando em Engenharia de Sistemas Agrícolas (ESALQ/USP) Cel (19) 8300-4333 (Pessoal) Tel (19) 3375-1196 (Residêncial) Tel (19) 3447-8537 (Trabalho)
Usando a lattice dados <- read.table(text='Classe 0-10 10-20 Mata_Nativa 10.046667 7.600000 Citrus_37 12.363333 23.126667 Citrus_37 15.326667 27.580000 Citrus_24 4.380000 8.856667 Citrus_18 10.430000 21.576667 Citrus_31 9.196667 18.036667 Pasto_37 6.690000 12.533333', header=TRUE) dados <- cbind(dados, id=1:nrow(dados)) ## dados <- reshape(dados, ## varying=list(c('X0.10', 'X10.20')), ## direction='long', ## idvar='id', ## timevar='Camada', ## times=c('0 - 10', '10 - 20')) names(dados)[2:3] <- c("0-10","10-20") require(reshape) da <- melt(dados, measure.vars=2:3) str(da) require(lattice) barchart(value~Classe, groups=variable, data=da, auto.key=list(columns=2)) À 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 skype: walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================
participantes (3)
-
Rodrigo Coster -
Rodrigo Muniz -
walmes .