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

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（）函数，但它将variables名称显示为“x”，并且不可能在count（）函数中单独重命名所有variables。

所以我想获取它的variables名称以及各种类别的频率。 我曾尝试导出表一次，但它只给了我的频率only.This是我如何试图导出输出在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") 

如果您提供可复制的数据集和所需的输出，将会更容易