在追加时插入空行

Question

我有两个表，我使用append参数使用write.table写入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)

打开文件时得到的输出是