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])) 
} 

エクセルでテーブルをエクスポートすることは可能ですか？ count（）関数を使用しようとしましたが、変数名を "x"として表示し、count（）関数内のすべての変数の名前を個別に変更することはできません。

私は変数名とその下のさまざまなカテゴリの頻度の両方を取得したいと思います。

[1] "QI1_15" 
0 1 
977 393 

[1] "QI1_16" 
0  1 
1188 182 

は、あなたたちはいくつかのアイデアを提案したり、である：私は一度エクスポートテーブルを試みたが、それはちょうど私の周波数を与えたonly.This私は助けるExcelシートまたはこれに似た何かで出力をエクスポートしようとしている方法ですこれのための任意の代替ですか？

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") 

あなたが再生可能なデータ・セットおよび所望の出力を提供する場合それは仕方容易になるだろう...