使用带有ggplot2的apply函数为data.frame中的多个变量创建条形图

Question

有没有办法在R中使用apply函数来创建Controller.java的条形图？

比如说，我们有一个只包含因子变量的数据帧，其中一个是布尔值。在我的情况下，我有一个+40变量的日期框架。可以用一行代码将所有变量映射到布尔值变量吗？

ggplot2

但我想创建像这样的条形图：

  data("diamonds")
factors <- sapply(diamonds, function(x) is.factor(x))
factors_only <- diamonds[,factors]
factors_only$binary <- sample(c(1, 0), length(factors_only), replace=TRUE)
factors_only$binary <- as.factor(factors_only$binary)

这不起作用：

qplot(factors_only$color, data=factors_only, geom="bar", fill=factors_only$binary)

请告知

Answer 1

您可以使用lapply来运行变量名称，然后使用get来提取当前变量。

temp <- lapply(names(factors_only),
               function(x) qplot(get(x), data=factors_only, geom="bar", fill=binary, xlab=x))

要打印列表项，

print(temp[[1]])

将产生

运行变量名称的一个很好的功能是，您可以使用这些来动态命名图中的标签。