管道如何使用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)     }) 

有一些額外的步驟。

• 使用map2而不是map。第一個參數是你傳遞它的數據幀，第二個參數是該數據幀的一個向量，所以它知道map結束了什麼。因此，ggplot只適用於數據框和強制對象。
• 這也讓你可以使用.y代名詞來命名劇情。

Answer 2

您不應該將原始數據傳遞給審美映射。相反，你應該動態構建data.frame。例如

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