適用機能で列名を取得

Question

私は、適用を使用してデータ・フレーム内のすべての列について小さなレポートを作成する機能を作成しようとしています。レポートでは、列の名前を使用したいので、何とかそれを「抽出」しなければならず、それが私の質問です。適用機能で列の名前を取得するにはどうすればよいですか？ここで

は、私は、グラフのタイトルに列の名前を使用する簡単な例です。（今の私は「X」として名をハードコード）

x <- c(1,1,2,2,2,3) 
y <- c(2,3,4,5,4,4) 
Tb <- data.frame(x,y) 
Dq_Hist <- function(Tab){ 
    Name <- 'x' 
    Ttl <- paste('Variable: ',Name,'') 
    hist(Tab,main=Ttl,col=c('grey'),xlab=Name) 
} 
D <- apply(Tb,MARGIN=2,FUN=Dq_Hist) 

Answer 1

まあ、誰もあなたを答えていない場合自分自身を見つけなければならない...そして、あなたはインデックスリストを使ってサプリーと呼ぶことができ、このインデックスを関数内で使うことができることを知りました。だから解決策は：

x <- c(1,1,2,2,2,3) 
    y <- c(2,3,4,5,4,4) 
    Tb <- data.frame(x,y) 
    Dq_Hist <- function(i){ 
    Name <- colnames(Tb)[i] 
    Ttl <- paste('Variable: ',Name,'') 
    hist(Tb[,i],main=Ttl,col=c('grey'),xlab=Name) 
    } 
    D <- sapply(1:ncol(Tb),Dq_Hist)