r - 如何将大数据导出到 Excel

Question

我正在使用 sink() 函数将 R 输出打印到 Excel/文本文件。我的程序输出太大。我在 Excel/文本输出文件的末尾发现一条消息

[ reached getOption("max.print") -- omitted 5326 rows ] 

此外，我还有多个大型输出要打印。我还希望它们位于一个 Excel 文件的单独(不同)工作表上。

实际上，输出是矩阵形式的，随着循环值的增加，方阵的行数和列数也会增加。由于行数和列数不同，append 功能不起作用。为了避免这个错误，我使用了 if 条件，并使用 rbind 单独处理类似的矩阵。但是通过双循环有超过 5000 次迭代(并且该方法也重复)，因此不可能编写 1000 个 if 和 rbind 条件并将它们保存到单独的文件中工作表和文件。

Answer 1

如果您不需要csv，您可以使用包xlsx，并且可以很容易地保存多张工作表，例如

df1 <- data.frame(x=1:100, y=1:100)   # make data
df2 <- data.frame(x=1:1000, y=1:1000) 

library(xlsx)

wb <- createWorkbook()         # create blank workbook
sheet1 <- createSheet(wb, sheetName="mysheet1") # create different sheets
sheet2 <- createSheet(wb, sheetName="mysheet2")
addDataFrame(df1, sheet1)  # add data to the sheets
addDataFrame(df2, sheet2)
saveWorkbook(wb, "mysheets.xlsx")  # write the file with multiple sheets