r - 使用“lapply”时的直方图标签

Question

我编写了以下函数来获取多个变量的直方图，它可以工作，但即使我使用了main参数，它也不会显示标题。

lapply(c("avg_ed","api00","api99"), function(s){hist(mydata[s],main="Histogram of [s]")})

使用的数据集：http: //www.math.montana.edu/~jimrc/classes/stat408/data/elemapi.csv

Answer 1

mydata <- read.table(file="elemapi.csv", header=TRUE, sep=",", na.strings=".")

lapply(X=c("avg_ed", "api00", "api99"), FUN=function(s)
  hist(mydata[, s], main=paste("Histogram of", s)))