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)))