在导出为 .csv 文件之前连接两个数据框

我正在制作一份大型调查问卷 - 并且为不同问题（例如 df1 和 df2）生成频率汇总表。

a<-c(1:5)
b<-c(4,3,2,1,1)
Percent<-c(40,30,20,10,10) 
df1<-data.frame(a,b,Percent)
c<-c(1,1,5,2,1)
Percent<-c(10,10,50,20,10)
df2<-data.frame(a,c,Percent)
rm(a,b,c,Percent)

我通常使用以下命令将数据帧导出为 csv 文件：

write.csv(df1 ,file="df2.csv")

然而，由于我的调查问卷有很多问题，因此有很多数据框，我想知道 R 中是否有一种方法可以组合不同的数据框（比如用一条线分隔它们），并将它们导出到 csv（然后最终在 Excel 中打开它们） ？因此，当我打开 Excel 时，我将只有一个文件，其中包含我的所有问题数据框，一个在另一个下面。这个 csv 文件比我必须依次打开才能查看结果的单个文件要容易得多。

提前谢谢了。

如果您的最终目标是 Excel 电子表格，我会研究 R 中可用于直接编写 xls 文件的一些工具。就我个人而言，我使用XL连接包，但也有xlsx还有几个write.xls函数漂浮在各种包中。

我恰好喜欢XL连接因为它允许在类似这样的情况下进行一些方便的矢量化：

require(XLConnect)

#Put your data frames in a single list
# I added two more copies for illustration
dfs <- list(df1,df2,df1,df2)

#Create the xls file and a sheet
# Note that XLConnect doesn't seem to do tilde expansion!
wb <- loadWorkbook("/Users/jorane/Desktop/so.xls",create = TRUE)
createSheet(wb,"Survey")

#Starting row for each data frame
# Note the +1 to get a gap between each
n <- length(dfs)
rows <- cumsum(c(1,sapply(dfs[1:(n-1)],nrow) + 1))

#Write the file
writeWorksheet(wb,dfs,"Survey",startRow = rows,startCol = 1,header = FALSE)
#If you don't call saveWorkbook, nothing will happen
saveWorkbook(wb)

我指定header = FALSE否则它会为每个数据帧写入列标题。但在 xls 文件末尾添加一行并没有太多额外的工作。