如何使用par（）函数自动标记许多绘图标签？

Question

我使用par()函数创建一个3 x 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 )

最后，here是您可以使用

加载的数据

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