如何在 R 中循环保存文件为 XLSX答案

【问题标题】：How to save file as XLSX in loop in R如何在 R 中循环保存文件为 XLSX
【发布时间】：2017-12-21 14:22:01
【问题描述】：

我确实需要将每个循环结果保存在 EXCEL 文件中，我的代码如下：

library(xlsx)
library(bootstrap)
rawData <- read.xlsx("C:\\Users\\Taqwa\\Downloads\\9660.xlsx",1)
#load<-function(AveLd,AveOff,AveOn,DWELL_SEC)
#  + + sum((AveLd-AveOff)+AveOn)
#bootstrap(rawData,10000,load())
three_d_array <- array(0,dim = c(270, 6, 20))
for (i in 1:20){
  candy = 1:nrow(rawData)
  B=sample(candy,nrow(rawData) , replace=T)
  a=rawData[B,]
  three_d_array[,,i]=as.matrix(a)
}

感谢您的帮助

【问题讨论】：

您能否澄清一下您是希望所有结果都存储在一个 .xlsx 文件中（大概每次循环迭代一张？）还是每个都存储在一个单独的 .xlsx 文件中？
@MilanValášek 是的，我确实需要
虽然是哪一个？
我确实需要将它们全部写入 sam excel 文件@MilanValášek
How to export multiple data frames to same xlsx file with R?的可能重复

标签： r excel loops

【解决方案1】：

在你的循环之前，放：

out <- createWorkbook()

循环内部：

assign(paste0("sheet", i), createSheet(wb = out, sheetName = as.character(i)))
# you don't really need your three_d_array
addDataFrame(x = a, sheet = eval(as.name(paste0("sheet", i))))

循环之后：

saveWorkbook(out, "[your path]/[file name].xlsx")

【讨论】：

谢谢，但我一直收到此错误，找不到功能保存工作簿
你是不是用小写的 w 拼写它？这是saveWorkbook。