パイプはどのようにpurrr map（）関数と "。"関数で動作しますか？ （ドット）記号

Question

パイプとpurrrのmap（）関数の両方を使用すると、データと変数の引き渡し方法がわかりません。例えば、このコードは、私が期待どおりに動作します

library(tidyverse) 

cars %>% 
    select_if(is.numeric) %>% 
    map(~hist(.)) 

をしかし、私はggplotを使用して似たようなしようとすると、それは奇妙な方法で動作します。

cars %>% 
    select_if(is.numeric) %>% 
    map(~ggplot(cars, aes(.)) + geom_histogram()) 

私はこれが "この場合、列名が必要なaes（）にベクトルを渡しています。いずれにしても、パイプとmap（）を使用して、各数値列をggplot関数に渡すことができたらと思います。前もって感謝します！

Answer 1

cars %>% 
    select_if(is.numeric) %>% 
    map2(., names(.), 
     ~{ggplot(data_frame(var = .x), aes(var)) + 
      geom_histogram() + 
      labs(x = .y)     }) 

のためにいくつかの余分な手順があります。

• mapの代わりにmap2を使用してください。最初の引数は渡しているデータフレームで、2番目の引数はそのデータフレームのnamesのベクトルなので、mapを越えるものを知っています。
• ggplotはデータフレームと強要可能なオブジェクトでのみ動作するため、データを明示的にフレーム化する必要があります。
• これにより、プロットの名前を示す.y代名詞にアクセスすることもできます。

Answer 2

生データを美的マッピングに渡すことはできません。代わりに、data.frameを動的に構築する必要があります。例

cars %>% 
    select_if(is.numeric) %>% 
    map(~ggplot(data_frame(x=.), aes(x)) + geom_histogram())