CrossTable и Loop не нравятся друг другу

Question

Я пытаюсь получить набор кросс-таблиц с 70 переменными. Но что бы я ни делал, R продолжал генерировать «функцию» обратно ко мне. Я пытался переместиться на substitute после CrossTable, но у R, похоже, были проблемы с использованием list(i=as.name(x)).

library(gmodel)

Independent_List <- colnames(Comorbidity)[1:70]
Comorbidity_Table <- lapply(Independent_List, function(x) {
  substitute(CrossTable(i ,
                        Comorbidity$sleep,
                        prop.c = TRUE,
                        prop.r = FALSE,
                        prop.t = FALSE,
                        prop.chisq = FALSE,
                        data =Comorbidity),
             list(i=as.name(x)))
})

lapply(Comorbidity_Table, summary)

[[1]]
Length  Class   Mode 
     8   call   call 

[[2]]
Length  Class   Mode 
     8   call   call 

[[3]]
Length  Class   Mode 
     8   call   call 

Цель состоит в том, чтобы попытаться составить таблицу с определенными номерами ячеек и процентом столбцов и объединить их с моими зацикленными результатами glm.

Answer 1

Я решил использовать более простой метод для решения этой проблемы:

Tables <- lapply(Table_Data[, 1:11], function(x){table(x, Table_Data$TSD,exclude = NA)}) 
Prop_Tabs <- lapply(Tables[1:11], function(x){prop.table(x,2)})