Print histogram for each of the columns in my table with one single command

Question

I would like to draw a histogram for each of the columns in my data.frame without having to write the the names of all of them, similar to what I did for inspect their unique values with:

sapply(data, unique)

So I tried

sapply(data, hist)

This command draws the histogram correctly, but the title for each of them is "Histogram of X[[i]]":

How can I draw the histograms but with the correct title?

Answer 1

I finally got it with the following code:

for (col in 2:ncol(data)) {
    hist(data[,col], main=colnames(data)[col],  xlab=colnames(data)[col])
}