如何將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") 

，如果你提供了一個可重複的數據集和所需的輸出這將是比較容易的方式...