R语言，输出不同的数据到同一个Excel工作簿的不同sheet中，怎么做

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

write.table(weight,"C:/Users/....../RESULT_weight.csv",sep=",",quote = F,row.names = T)
write.table(weight2,"C:/Users/....../RESULT_weight2.csv",sep=",",quote = F,row.names = T)
write.table(weight3,"C:/Users/....../RESULT_weight3.csv",sep=",",quote = F,row.names = T)
之前是这样的，现在输出的太多了，后期都要手动合并到同一个工作簿中，
如何一步到位，直接输出到同一个工作簿的不同sheet中。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：EXCEL sheet exce xcel 工作簿 Excel R语言 输出到不同sheet

这是stata板块，转移到R板块吧

excel.link包中有相关函数

xugami 发表于 2017-5-17 16:01
excel.link包中有相关函数

谢谢，具体是哪个函数？

xugami 发表于 2017-5-17 16:01
excel.link包中有相关函数

xl.workbook.save()保存时，如何设置路径

chaunceyzhou 发表于 2017-5-18 15:38
xl.workbook.save()保存时，如何设置路径

保存到当前目录下

xlsx.writeMultipleData <- function (file, ...)
  {
    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 = objnames[i])
        else write.xlsx(objects[[i]], file, sheetName = objnames[i],
            append = TRUE)
    }
  }
可以参考一下，
出处http://www.sthda.com/english/wiki/r-xlsx-package-a-quick-start-guide-to-manipulate-excel-files-in-r

注意保存到同一文件不同sheet要用到append参数

library(xlsx)

write.xlsx2(data,"data.xlsx",sheetName = "sheet1")
write.xlsx2(data2,"data.xlsx",sheetName = "sheet2",append = TRUE)

这个是在xlsx包里的，加上append参数就可以写到一个文件里了