関数のヒストグラムにタイトルを追加する

Question

データフレーム内のすべての変数を自動的にプロットする簡単な関数を作成しました。以下のコードは、

V1 <- rnorm(50) 
V2 <- rnorm(50) 
all.data <- data.frame(V1, V2) 
My_function <- function(x) 
for(i in x) { 
     hist(i) 
} 
My_function(all.data) 

問題は、各ヒストグラムのタイトルは「ヒストグラムのI」は常にあるということです。この関数で50個のヒストグラムを作成すると、これは本当に混乱することがあります。 これを修正する方法を知っておく必要があります。これにより、各ヒストグラムには、データフレームの列タイトルが付いています。言い換えると、最初のヒストグラムはタイトル「ヒストグラムV1」を有し、2番目のヒストグラムはタイトル「ヒストグラムV2」を有するべきである。

Answer 1

次のような場合はどうですか？

V1 <- rnorm(50) 
V2 <- rnorm(50) 
all.data <- data.frame(V1, V2) 
My_function <- function(x) 
    for(i in 1:ncol(x)) { 
    hist(x[,i], main = paste("Histogram of",colnames(x)[i])) 
    } 
My_function(all.data) 

iは現在なく、列そのものの値よりも、列番号を表しています。