条形图可视化的重复代码

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”

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
}