关于r：使用ggplot2的apply函数为data.frame中的多个变量创建条形图


using an apply function with ggplot2 to create bar plots for more than one variable in a data.frame

有没有一种方法可以在R中使用apply函数以便用ggplot2创建条形图？

说，我们有一个仅包含因子变量的数据框，其中一个是布尔值。就我而言，我有一个包含40个变量的日期框架。可以用一行代码将所有变量与布尔值相对应吗？

1
2
3
4
5
  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)

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

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

这不起作用：

1
  sapply(factors_only,function(x) qplot(x, data=factors_only, geom="bar", fill=binary))

请告知

相关讨论

您可以使用lapply遍历变量名，然后使用get提取当前变量。

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

要打印列表项，

1
print(temp[[1]])

将产生

enter