非标准评估、lapply 和 ggplot

Question

我正在尝试使用 ggplot2 以编程方式绘制分布。

我无法弄清楚如何在此处使用非标准评估 (NSE)（即使在阅读了 Hadley 的 NSE 书籍章节等之后）。

考虑以下代码：

library(ggplot2)


gg_dens <- function(x){
  eval(ggplot(data.frame(x), aes_string(x = substitute(x))) + geom_density() +
         ggtitle(substitute(x)), data.frame(x))
}


lapply(mtcars, function(x) gg_dens(x))

这段代码确实产生了许多密度图，每一列一个，好的。但是，它并没有打印所绘制的变量的名称。而是x打印占位符变量（参见图）。

我的目标是x用真实的变量名替换引号，例如，mpg.

Answer 1

lapply无法使用您现在拥有的功能来解决此问题。x当传递给该函数时只是一个向量，它不是该变量的名称，并且lapply不传递任何名称。换句话说，该函数的范围内没有任何内容可以让它找出正确的 x 轴标签。

一种解决方案类似于@Jimbou：

gg_dens <- function(name, dat) {
  ggplot(dat, aes_string(x = name)) + geom_density() + ggtitle(name)
}    
lapply(names(mtcars), gg_dens, mtcars)

或者只使用facets来代替：

mtcars2 <- tidyr::gather(mtcars)
ggplot(mtcars2, aes(value)) + geom_density() + facet_wrap(~key, scales = 'free')