[R] Assigning labels to a list created with apply

[John Kane]

I have a simple data base and I want to produce tables
for each variable.  I wrote a simple function
 fn1 <- function(x) {table(x)}  where x is a matrix or
data.frame. and used apply to produce a list of
tables. Example below.

How do I apply the colnames from the matrix or names
from the data.frame to label the tables in the results
in the list.  I know that I can do this individually
but there should be a way to do something like an
apply but I am missing it

cata <- c( 1,1,6,1,1,NA)
catb <- c( 1,2,3,4,5,6)
doga <- c(3,5,3,6,4, 0)
dogb <- c(2,4,6,8,10, 12)
rata <- c (NA, 9, 9, 8, 9, 8)
ratb <- c( 1,2,3,4,5,6)
bata <- c( 12, 42,NA, 45, 32, 54)
batb <- c( 13, 15, 17,19,21,23)
id <- c('a', 'b', 'b', 'c', 'a', 'b')
site <- c(1,1,4,4,1,4)
mat1 <-  cbind(cata, catb, doga, dogb, rata, ratb,
bata, batb)

fn1 <- function(x) {table(x)}
jj <-apply(mat1, 1, fn1) ; jj

##  Slow way to label a list ###
label(jj[[1]]) <- "cata"
label(jj[[2]]) <- "catb"

#  and so on ...