excel - ROBDC SqlSave：如何将数据导出到 Excel 工作表中？

Question

我正在尝试将数据从 R 导出到一个 Excel 文件（到不同的工作表中）：

library(plyr)
library(RODBC)

g <- lapply(iris, function(x) as.data.frame(table(x)))
save2excel <- function(x) sqlSave(xlsFile,
     x, tablename = x[1], rownames = FALSE)
xlsFile <- odbcConnectExcel("C:/Temp/iris.xls", readOnly = FALSE)
l_ply(g, save2excel)
odbcCloseAll()

这会产生错误：

Error in sqlColumns(channel, tablename) : 
  ‘1:35’: table not found on channel

问题在于tablename = x[1]，如何将列表名称转换为工作表名称？

Answer 1

你必须以names(g)某种方式提供你的功能。最简单的解决方案看起来像mapply.

此外，无论出于何种原因，Excel ODBC 驱动程序似乎都不喜欢工作表名称中的点，即使 Excel 本身可以处理它们。因此，您必须将“Sepal.Length”之类的名称更改为“Sepal_Length”等。

在全：

g <- lapply(iris, function(x) as.data.frame(table(x)))
names(g) <- gsub("\\.", "_", names(g))
xl <- odbcConnectExcel("c:/temp/iris.xls", readOnly=FALSE)
mapply(sqlSave, dat=g, tablename=names(g),
       MoreArgs=list(channel=xl, rownames=FALSE))
odbcCloseAll()