적용 함수에서 열 이름 가져 오기

Question

apply를 사용하여 데이터 프레임의 모든 열에 대해 작은 보고서를 만드는 함수를 만들려고합니다. 보고서에서 필자는 열의 이름을 사용하여 어떻게 든 그것을 '추출'해야하며 이것이 내 질문에 관한 것입니다. 적용 함수에서 컬럼의 이름을 어떻게 얻을 수 있습니까? 여기

내가 그래프 제목의 열 이름을 사용하려면 간단한 예입니다 :

는

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'로 이름을 하드 코딩) 너 자신을 알아 내야 해 ... 그리고 나는 인덱스 목록으로 sapply를 호출하고 함수에서이 인덱스를 사용할 수 있다는 것을 알았다. 해결책은 다음과 같습니다.

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)