percentuale su y lab in un diagramma a barre sfaccettato ggplot?

Question

fare facet in ggplot Mi piacerebbe molto spesso la percentuale da utilizzare al posto dei conteggi.

ad es.

test1 <- sample(letters[1:2], 100, replace=T) 
test2 <- sample(letters[3:8], 100, replace=T) 
test <- data.frame(cbind(test1,test2)) 
ggplot(test, aes(test2))+geom_bar()+facet_grid(~test1) 

Questo è molto facile, ma se N è diverso in sfaccettatura A rispetto alla faccetta B, sarebbe meglio Credo di confrontare le percentuali, in modo tale che le somme ogni sfaccettatura a 100%.

come faresti a raggiungere questo?

Spero che la mia domanda abbia un senso.

Cordiali saluti.

Answer 1

Prova questa:

# first make a dataframe with frequencies 
df <- as.data.frame(with(test, table(test1,test2))) 
# or with count() from plyr package as Hadley suggested 
df <- count(test, vars=c('test1', 'test2')) 
# next: compute percentages per group 
df <- ddply(df, .(test1), transform, p = Freq/sum(Freq)) 
# and plot 
ggplot(df, aes(test2, p))+geom_bar()+facet_grid(~test1) 

È inoltre possibile aggiungere + scale_y_continuous(formatter = "percent") alla trama per ggplot2 vers ion 0.8.9 o + scale_y_continuous(labels = percent_format()) per la versione 0.9.0.

Answer 2

Ecco una soluzione che dovrebbe farti muovere nella giusta direzione. Sono curioso di vedere se ci sono modi più efficienti per fare questo, perché questo sembra un po 'hacky e contorto. Possiamo utilizzare l'argomento integrato ..density.. per il y aesthetic, ma i fattori non funzionano lì. Quindi abbiamo anche bisogno di usare scale_x_discrete per etichettare in modo appropriato l'asse una volta convertito test2 in un oggetto numerico.

ggplot(data = test, aes(x = as.numeric(test2)))+ 
geom_bar(aes(y = ..density..), binwidth = .5)+ 
scale_x_discrete(limits = sort(unique(test$test2))) + 
facet_grid(~test1) + xlab("Test 2") + ylab("Density") 

Ma date un vortice e fatemi sapere cosa ne pensate.

Inoltre, è possibile accorciare la creazione dei dati di test in questo modo, che evita gli oggetti in più nel proprio ambiente e di dover cbind insieme:

test <- data.frame(
    test1 = sample(letters[1:2], 100, replace = TRUE), 
    test2 = sample(letters[3:8], 100, replace = TRUE) 
) 

Answer 3

Un modo molto semplice:

ggplot(test, aes(test2)) + 
    geom_bar(aes(y = (..count..)/sum(..count..))) + 
    facet_grid(~test1) 

Così ho cambiato solo il parametro di geom_bar a aes(y = (..count..)/sum(..count..)). Dopo aver impostato ylab a NULL e specificando il formattatore, si potrebbe ottenere:

ggplot(test, aes(test2)) + 
    geom_bar(aes(y = (..count..)/sum(..count..))) + 
    facet_grid(~test1) + 
    scale_y_continuous('', formatter="percent") 

Aggiornamento Nota che mentre formatter = "percent") lavori per ggplot2 versione 0.8.9, in 0.9.0 che ci si vuole qualcosa di simile scale_y_continuous(labels = percent_format()).

Answer 4

Mi occupo di situazioni simili con una certa frequenza, ma ho un approccio molto diverso che utilizza due degli altri pacchetti di Hadley, ovvero rimodella e plyr. Principalmente perché preferisco considerare le cose come barre impilate al 100% (quando sono totali al 100%).

test <- data.frame(sample(letters[1:2], 100, replace=T), sample(letters[3:8], 100, replace=T)) 
colnames(test) <- c("variable","value") 
test <- cast(test, variable + value ~ .) 
colnames(test)[3] <- "frequ" 

test <- ddply(test,"variable", function(x) { 
    x <- x[order(x$value),] 
    x$cfreq <- cumsum(x$frequ)/sum(x$frequ) 
    x$pos <- (c(0,x$cfreq[-nrow(x)])+x$cfreq)/2 
    x$freq <- (x$frequ)/sum(x$frequ) 
    x 
}) 

plot.tmp <- ggplot(test, aes(variable,frequ, fill=value)) + geom_bar(stat="identity", position="fill") + coord_flip() + scale_y_continuous("", formatter="percent") 

Answer 5

Ecco una all'interno ggplot metodo, utilizzando ..count.. e ..PANEL..:

ggplot(test, aes(test2)) + 
    geom_bar(aes(y = (..count..)/tapply(..count..,..PANEL..,sum)[..PANEL..])) + 
    facet_grid(~test1) 

Dato che questo viene calcolata al volo, dovrebbe essere robusto per le modifiche per tracciare i parametri.

Answer 6

Grazie per aver condiviso il "suggerimento" PANEL sul metodo ggplot.

Per informazioni: è possibile produrre le percentuali in y lab, sullo stesso grafico a barre, utilizzando count e group nel metodo ggplot:

ggplot(test, aes(test2,fill=test1)) 
    + geom_bar(aes(y = (..count..)/tapply(..count..,..group..,sum)[..group..]), position="dodge") 
    + scale_y_continuous(labels = percent)