当使用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函数。提前谢谢!
答案 0 :(得分:9)
您不应该将原始数据传递给美学映射。相反,您应该动态构建data.frame。例如
cars %>%
select_if(is.numeric) %>%
map(~ggplot(data_frame(x=.), aes(x)) + geom_histogram())
答案 1 :(得分:8)
cars %>%
select_if(is.numeric) %>%
map2(., names(.),
~{ggplot(data_frame(var = .x), aes(var)) +
geom_histogram() +
labs(x = .y) })
# Alternate version
cars %>%
select_if(is.numeric) %>%
imap(.,
~{ggplot(data_frame(var = .x), aes(var)) +
geom_histogram() +
labs(x = .y) })
还有一些额外的步骤。
map2
代替map
。第一个参数是您传递的数据帧,第二个参数是该数据帧的names
的向量,因此它知道map
结束了什么。 (或者,imap(x, ...)
是map2(x, names(x), ...)
的同义词。它是“索引图”,因此是“imap”。)。ggplot
仅适用于数据框架和可强制对象。.y
代词来命名图表。