Wie plotten mehrere Faktor Spalten mit ggplot?

Question

Ich versuche mehrere Faktoren Spalten in einem Schritt zu plotten, mit ggplot2 als Plotten-Engine.

mehr metrische Spalt Plotten ist einfach:

library(ggplot2) 
library(dplyr) # dplyr 0.5.0 select_if 
library(purrr) 
data(diamonds) 


diamonds %>% 
    select_if(is.numeric) %>% 
    gather %>% 
    ggplot(aes(x = value)) + 
    geom_histogram() + 
    facet_wrap(~key) 

Allerdings habe ich in Plotten mehrere Faktor (qualitativ) Spalten in einem Schuss nicht Erfolg habe. Ich möchte Spalten programmgesteuert auswählen, dh nicht direkt benennen.

habe ich versucht, diese, aber es tut nicht ein vernünftiges Ergebnis produzieren:

diamonds %>% 
    select_if(is.factor) %>% 
    gather %>% 
    ggplot(aes(x = value)) + geom_bar() + 
    facet_wrap(~key) + 
    coord_flip() 

Ich gehe davon aus, dass es könnte eine Lösung in dieser Richtung:

diamonds %>% 
    select_if(is.factor) %>% 
    ggplot(aes(x = .[[1]])) + geom_bar() 

Wo .[[1]] sollte durch einen Spaltenplatzhalter ersetzt werden (also hier habe ich direkt die Spalte benannt, die ich li.) Ke zu vermeiden, wie ich eine große Anzahl von Spalten in der Realität habe).

Eine For-Schleife wird wahrscheinlich die Arbeit machen, aber ich würde gerne mit dplyr dorthin gelangen.

Answer 1

Der Trick hier ist, scales = free innerhalb Ihrer facet Aufruf verwenden. Zum Beispiel:

diamonds %>% 
    select_if(is.factor) %>% 
    gather %>% 
    ggplot(aes(x = value)) + geom_bar() + 
    facet_wrap(~key, scales = 'free') + 
    theme_bw() + 
    theme(axis.text.x = element_text(angle = 90, hjust = 1, vjust = 0.5)) 

Leider kostenlos Waage und coord_flip nicht schön spielen. Sie können entweder geom_barh von the ggstance package verwenden. Oder Sie können lapply für jede Spalte verwenden, um eine Liste von ggplot Objekten zu erhalten und das cowplot-Paket verwenden, um sie in einer Figur zusammenzufassen.

Answer 2

Vielleicht weniger elegant als @Axeman, sondern auch arbeiten und mit coord_flip kooperiert:

library(gridExtra) 


gg_bar <- function(x, ...){ 
    { 
    ggplot(data_frame(x), aes(x = x)) + 
     geom_bar() + 
     coord_flip() 
    } 
} 

diamonds %>% 
    select_if(negate(is.numeric)) %>% 
    lapply(., function(x) gg_bar(x)) -> gg_bar_list 

do.call(grid.arrange, gg_bar_list) 

jedoch der Name der Variablen ("x") nicht angezeigt wird, ist das nicht zu schön.