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（）函数，但它将变量名称显示为＆＃34; x＆＃34;并且在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")

如果您提供可重现的数据集和所需的输出，那将会更容易......

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

1 个答案: