R help - Aug 2006 - Extracting column name in apply/lapply

Hi,
   
  any good trick to get the column names for title() aside from running lapply
on the column indexes?
   
  Thanks
   
  Nick.
   
  apply(X[,numCols],2,function(x){
  nunqs <- length(unique(x))
  nnans <- sum(is.na(x))
  info <-
paste("uniques:",nunqs,"(",nunqs/n,")","NAs:",nnans,"(",nnans/n,")")
  hist(x,xlab=info) 
  # --> title("???")
  })


 		
---------------------------------

	[[alternative HTML version deleted]]

Nick Desilsky wrote:
>   Hi,
>    
>   any good trick to get the column names for title() aside from running
lapply on the column indexes?
>    
>   Thanks
>    
>   Nick.
>    
>   apply(X[,numCols],2,function(x){
>   nunqs <- length(unique(x))
>   nnans <- sum(is.na(x))
>   info <-
paste("uniques:",nunqs,"(",nunqs/n,")","NAs:",nnans,"(",nnans/n,")")
>   hist(x,xlab=info) 
>   # --> title("???")
>   })
> 
> 
>  		
> ---------------------------------
> 
> 	[[alternative HTML version deleted]]
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
This is where a for loop is much more useful (and readable):

for(i in numCols) {
   nunqs <- length(unique(X[, i]))
   nnans <- sum(is.na(X[, i]))
   ## `n' is missing from this example
   info <- 
paste("uniques:",nunqs,"(",nunqs/n,")","NAs:",nnans,"(",nnans/n,")")
   hist(X[, i],xlab=info)
   title(colnames(X)[i])
}

HTH,

--sundar