尝试从工作表中读取excel数据,并根据不同的逻辑将其拆分为多个数据帧。这些多个数据帧需要使用R写到不同工作表中的同一个excel工作表中。请建议使用这些包的包或示例代码。
发布于 2017-02-07 12:46:08
要阅读excel文件,请阅读此帖子:Read an Excel file directly from a R script
要创建多个工作表的excel文件,软件包xlsx可能会有所帮助。以下函数接受文件名、工作表名称矢量和数据框对象名称。请注意,为数据框对象参数提供大小相等的向量。
save2.xlsx <- function (file, namelist, ...)
{
require(xlsx, quietly = TRUE)
objects <- list(...)
fargs <- as.list(match.call(expand.dots = TRUE))
objnames <- as.character(fargs)[-c(1, 2)]
nobjects <- length(objects)
for (i in 1:nobjects) {
if (i == 1)
write.xlsx(objects[[i]], file, sheetName = namelist[i])
else write.xlsx(objects[[i]], file, sheetName = namelist[i],
append = TRUE)
}
}
示例调用:
mydf1<- data.frame(matrix(data=rnorm(4),ncol=2,nrow=2))
mydf2<- data.frame(matrix(data=rnorm(9),ncol=3,nrow=3))
save2.xlsx("C:\\myfile.xls",c("Mysheet1", "Mysheet2"),mydf1, mydf2 )
https://stackoverflow.com/questions/42083759
复制相似问题