追加中に空白行を挿入する

Question

私は書いた2つのテーブルをappend引数を使ってwrite.tableを使ってExcelに書きますが、これらの2つのテーブルは1つずつ来ていますが、それらの間に1〜2つの空白行を残しておきます。 私は、このコマンドを使用しています：

Gender Col1 Col2 
Male 18 13 
Female 3 3 

Grids  Col1 Col2 
6 to 12  2 0 
12 to 24 6 6 

すなわち、間に空白行のスペースを持っている：私はそれらを追加したいどのように

Gender Col1 Col2 
Male 18 13 
Female 3 3 
Grids Col1 Col2 
6 to 12  2 0 
12 to 24 6 6 

：彼らは来ているどのように

write.table(df1, file = "filename.csv",sep = ", ",row.names=FALSE,append=TRUE) 
write.table(df2, file = "filename.csv",sep = ", ",row.names=FALSE,append=TRUE) 

を。私はどうしたらいいですか？

Answer 1

は、我々は最初のデータセット

df1 <- rbind(df1, setNames(replicate(3, "", simplify = FALSE), names(df1))) 

の行を作成し、その後write.table

write.table(df1, file = "filename.csv",sep = ", ",row.names=FALSE,append=TRUE, quote = FALSE) 
write.table(df2, file = "filename.csv",sep = ", ",row.names=FALSE,append=TRUE, quote = FALSE) 

が

我々はファイルを開くに入る出力が