Gráficos de Barras dentro de outros Gráficos de Barras!

quarta-feira, 11 de dezembro de 20130 comentários


Os gráficos de barras são nossos amigos há tempos! Mas sempre surge uma nova forma de melhorar o uso deles. Então aqui compartilho um modo bem eficiente e útil de utilizá-los! Você pode demonstrar divisões e subdivisões em um mesmo gráfico. Simples e útil!
Espero ter lhe ajudado!
Até a próxima!
________________________________________

install.packages('ggplot2')
library(ggplot2)
install.packages("reshape")
library(reshape)
install.packages("scales")
library(scales)

### Exemplo de dados
df <- read.csv(textConnection("Segment,Alpha,Beta,Gamma,Delta
                                 A,1416649,590270,236108,118054
                                 B,708325,531243,354162,177081
                                 C,354162,354162,236108,236108
                                 D,147568,147568,147568,147568"))
closeAllConnections()

# Colocando tudo em uma mesma escala e rotulando os eixos
dfa <- melt(df, id = c("Segment"), variable_name = "Company")

# Tratando do eixo Y
ylim <- max(cast(dfa, Company ~ ., sum)[, 2],
            cast(dfa, Segment ~ ., sum)[, 2])

# plotando
p <- ggplot(dfa) + scale_y_continuous(limits = c(0,ylim), breaks = NA)
p1 <- p + geom_bar(aes(Company, value), stat = "identity")
(p2 <- p1 + geom_bar(aes(Company, value, fill = Segment),
                        stat = "identity", position = "dodge"))

Para maiores informações clique aqui.


Compartilhe :
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. Estatisti.co - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger