如何将R中表（）的输出导出到Excel中

Question

gen_start <- which(colnames(westpac)=="RespID") 
gen_end <- which(colnames(westpac)=="sc_frequency") 
for(i in gen_start:gen_end) 
{ 
print(colnames(westpac[i])) 
print(table(westpac[,i])) 
} 

是否可以在excel中导出表？我曾尝试使用count（）函数，但它将变量名称显示为“x”，并且不可能在count（）函数中单独重命名所有变量。

所以我想获取它的变量名称和各种类别的频率。我试图导出表一次，但它只是给我的频率是内整合如何我正在尝试导出excel表格或类似于这样的输出将帮助：

[1] "QI1_15" 
0 1 
977 393 

[1] "QI1_16" 
0  1 
1188 182 

你们可以提出一些想法，或者是有没有其他办法呢？

Answer 1

library(XLConnect) 
gen_start <- which(colnames(westpac)=="RespID") 
gen_end <- which(colnames(westpac)=="sc_frequency") 
for(i in gen_start:gen_end) 
    { 
     tmp <- data.frame(table(westpac[,i]) 
     names(tmp) <- colnames(westpac[i]) 
     writeWorksheetToFile(file=paste0("excel", i, ".xlsx"), data=tmp, sheet="sheet1") 
    } 

dplyr方法：

library(dplyr) 
dat <- westpac %>% select(RespID:sc_frequency) %>% summarise_each(funs(n())) 
writeWorksheetToFile(file="output.xlsx", data=dat, sheet="sheet1") 

，如果你提供了一个可重复的数据集和所需的输出这将是比较容易的方式...