Question

我一直在使用以下功能将输出放在R中的不同表格中，但是如果我希望输出在彼此之下，如下面的示例那么

data<-loadWorkbook("trial.xls",create=TRUE)
createSheet(data,name="tr1")
writeWorksheet(data,rows,sheet="tr1")
saveWorkbook(data)

所以我希望我的电子表格看起来像这样

Values Median STD Length
3       5      6   7
6       7      7   8
Values Median STD Length
4      7      8   1
6       9      0   3

谢谢你们

Answer 1

您可以在starRow=中设置writeWorksheet()以在Excel工作表中设置位置。这是一个例子，我在一张表中写了数据iris和cars。使用startRow=(nrow(iris)+2)我在上一个表的下方设置位置（+2用作第一个表，也包含nrow()未计算的列名）。要删除第二个表的标题，请将header=FALSE置于第二个writeWorksheet()调用中。

library(XLConnect)    
data(iris)
data(cars)
wb<-loadWorkbook("trial.xls",create=TRUE)
createSheet(wb,name="tr1")
writeWorksheet(wb,iris,sheet="tr1")
writeWorksheet(wb,cars,sheet="tr1",startRow=(nrow(iris)+2),header=FALSE)
saveWorkbook(wb)

Answer 2

您可能还想查看appendWorksheet。有关详细信息，请参阅help(appendWorksheet)。

示例代码：

require(XLConnect)
wb = loadWorkbook("test.xlsx", create = TRUE)
createSheet(wb, name = "mtcars")
writeWorksheet(wb, mtcars, sheet = "mtcars")
for(i in 1:5) appendWorksheet(wb, mtcars, sheet = "mtcars", header = FALSE)
saveWorkbook(wb)

在Excel中的同一工作表中添加R输出

2 个答案: