Как автоматизировать маркировку многих меток на графике с помощью функции par()?

Question

Я использую par() Функция для создания матрицы 3 х 4 гистограмм. Я успешно использовал функцию apply для заполнения матрицы, но у меня возникают проблемы с маркировкой всех графиков.

Я попытался сделать это с помощью цикла for, например:

par(mfrow = c(3,4))
features <- colnames(winequality.white)
for (name in features){
  truehist(winequality.white$name)
  mtext(name)
}

но это дает мне ошибку: Error in stats::var(x) : 'x' is NULL,

Я предпочитаю использовать функцию par, потому что это избавляет меня от необходимости создавать 12 отдельных графических элементов, но есть ли способ автоматизировать маркировку графиков?

Вот код, который я использовал для создания графиков, а также графический результат:

#import/load data
winequality.white <- read.csv("/Users/me/Documents/winequality-white.csv", sep = ";")
#load library
library("MASS",lib.loc="/Library/Frameworks/R.framework/Versions/3.3/Resources/library")
#Examine Histograms of the Data
par(mfrow = c(3,4))
apply(winequality.white, 2 , truehist )

Наконец, вот данные, которые вы можете загрузить с

winequality.white <- read.table("https://archive.ics.uci.edu/ml/machine-learning-databases/wine-quality/winequality-white.csv", sep=";", header=TRUE)