R打印變量名稱，chi-sq循環

Question

我是R新手，所以我確信這很簡單。這可以作爲一個循環打印二元表和卡廣場：

results <- lapply(c("age", "female", "black"), 
function(var){ 
print(table(data$heart,data[,var])); 
print(chisq.test(data$heart,data[,var], correct = FALSE)) 
}) 

對於第一個變量，它打印以下結果：

 0 1 
    0 1016 977 
    1 47 35 

     Pearson's Chi-squared test 

data: data$heart and data[, var] 
X-squared = 1.2665, df = 1, p-value = 0.2604 

我只是希望它打印實際變量名在表中/而不是chi-sq結果中的「data [，var]」，所以我知道我在看什麼。

謝謝你的幫助！

Answer 1

我認爲這應該工作

fun <- function(var){ 
    print(table(data$heart,data[,var], dnn = c('heart', paste(var)))) 
    out <- chisq.test(data$heart,data[,var], correct = FALSE) 
    out$data.name <- paste('heart and',var) 
    print(out) 
} 

results <- lapply(c("age", "female", "black"),fun)