使用Lapply

Question

我想对多个变量进行卡方检验而不使用循环。 由于我想存储所有结果，我使用了函数lapply。

我需要打印列的名称和满足几个条件的行的名称。 但是，当我使用函数lapply时，名称被转换为1,2,3,4 ...但是，我需要使用名称而不是数字。 这是我的代码：

dat1 <- as.data.frame(cbind(facturation$statut, facturation$OAL_SRC_IND, facturation$CPN_BKG_CLA))
colnames(dat1) <- c("statut", "OAL_SRC_IND", "CPN_BKG_CLA")
head(dat1)
res <- (lapply(names(dat1)[-1], function(x) CrossTable(dat1[,x], dat1[,"statut"], digits=2, format="SAS", expected=T, prop.t=F, prop.r=F, prop.c=F, prop.chisq=T, chisq=T, dnn=c(x, "statut"))))

我希望列表的第一个输出是这个（带有行和列的名称）：

带名字的Chisquare：

但是当使用lapply时，我得到：

没有名字的Chisquare：

我怎样才能做到这一点？