ggplotを使用して複数の係数列をプロットするにはどうすればよいですか？

Question

私はプロットエンジンとしてggplot2を使用して、複数のファクタ列を一度にプロットしようとしています。複数メトリック列をプロット

は単純です：

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) 

しかし、私は1回のショットで複数の要因（定性）の列をプロットで成功しませんでした。プログラムで列を選択したいと思います。つまり、ではなく、という名前を直接付けています。

私はこれを試してみましたが、それはが賢明結果生成しません：私はこれらの線に沿って解決策があるかもしれないことを前提としてい

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

を：

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

.[[1]]をいくつかの列プレースホルダに置き換える必要があります（ここでは、私は直接列名を付けました。私が実際に多数の列を持っているので、回避する必要はありません）。

for-loopはおそらく仕事をしますが、私はdplyrを使ってそこに行きたいと思います。

Answer 1

あなたのfacetコールでscales = freeを使用するのがここのトリックです。たとえば、次のように

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)) 

残念ながら無料のスケールとcoord_flipは素晴らしいプレーしません。 をthe ggstance packageから使用するか、または、各列にlapplyを使用してggplotオブジェクトのリストを取得し、cowplotパッケージを使用して1つの図にまとめることができます。

Answer 2

@Axemanより

たぶん少ないエレガントなだけでなく、作業、およびcoord_flipと協力：

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) 

しかし、変数（ "X"）の名前が表示されていない、それはありません美しすぎる。