повторяющийся код для визуализации гистограммы

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
}