在添加空行時插入空行

Question

我有兩張表，我已經使用write.table使用append參數寫入了excel，但是這兩個表都是一個一個來的，但我希望它們在它們之間留下一兩個空行。 我使用這個命令：

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

他們是如何來：

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 

即有空白的行空間之間。我應該怎麼做？

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) 

我們打開文件得到的輸出是