結合使用ggplot2的apply函數為data.frame中的多個變量創建條形圖

Question

有沒有一種方法可以在R中使用apply函數來用ggplot2創建ggplot2 ？

假設我們有一個僅包含因子變量的數據框，其中一個是布爾值。 就我而言，我有一個包含+40個變量的日期框架。 可以用一行代碼將所有變量與布爾值相對應嗎？

  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)

這不起作用：

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

請指教

Answer 1

您可以使用lapply來遍歷變量名，然后使用get來get當前變量。

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

要打印列表項，

print(temp[[1]])

將產生

遍歷變量名的一個不錯的功能是，您可以使用它們來動態命名圖中的標簽。