r - 条形图可视化的重复代码

Question

我正在用条形图可视化葡萄酒中的数据。如何摆脱重复的代码？

qplot(x = pH, data = wineData)
qplot(x = sulphates, data = wineData)
qplot(x = density, data = wineData)
qplot(x = chlorides, data = wineData)
qplot(x = citric.acid, data = wineData)
qplot(x = fixed.acidity, data = wineData)
qplot(log10(x = residual.sugar), data = wineData)
qplot(x = volatile.acidity, data = wineData)

结果应该是相同的，但没有那么多代码，并且不重复“data=winedata”和“qplot”

标签： r

Answer 1

您可以使用ggplot2一个简单的 for 循环：

library(ggplot2)

plot_list <- list()

for (i in names(wineData)){
  plt <- ggplot(wineData) +
    geom_bar(aes_string(i))
  plot_list[[i]] <- plt
}