r - 当您提前不知道列索引时，从 R 到 Excel 的列格式(使用 package=xlsx)(有更好的方法)吗？

Question

我一直在尝试使用 xlsx 包作为从 R 导出输出的一种方式，当您(事先)不知道哪些列将以哪种方式格式化时，我在设置列数据格式时遇到问题。

顺便说一句，我发现 tradeblotter 上这篇最精彩的帖子对我达到这一点有很大帮助。我强烈推荐它:background post from Tradeblotter blog

在我的用例中，我每月生成报告，并且每个月要导出的 data.frame 都会增加 1 列或多列(然后需要正确格式化)。我不想在代码中手动设置列名称，而是希望让 R 为我计算列数，然后将索引向量提供给 xlsx 代码。

在研究了 colStyle 列表对象的结构之后，我能够创建这个解决方法，但我必须相信有更好的方法，并且我正在寻求一些帮助来找到它。

提前致谢!克里斯

require(xlsx)
iris$cost <- rbinom(nrow(iris), 3, .85)+1000
iris$cost2 <- rbinom(nrow(iris), 3, .85)+1000
test <- createWorkbook()
# Define some cell styles within that workbook
csSheetTitle <- CellStyle(test) + Font(test, heightInPoints=18, isBold=TRUE)
csdollar <- CellStyle(test, dataFormat=DataFormat("$###,##0.00")) # ... for ratio results
csdefault <- CellStyle(test, dataFormat=DataFormat("0.00")) # ... for ratio results
csTableColNames <- CellStyle(test) + Font(test, isBold=TRUE) + Alignment(wrapText=TRUE, h="ALIGN_CENTER") + Border(color="black", position=c("TOP", "BOTTOM"), pen=c("BORDER_THIN", "BORDER_THICK"))
csTableColNames <- CellStyle(test) + Font(test, isBold=TRUE) + Alignment(wrapText=TRUE, h="ALIGN_CENTER") + Border(color="black", position=c("TOP", "BOTTOM"), pen=c("BORDER_THIN", "BORDER_THICK"))
sheet <- createSheet(test, sheetName = names(ytddflist)[i])
rows <- createRow(sheet,rowIndex=1)
sheetTitle <- createCell(rows, colIndex=1)
setCellValue(sheetTitle[[1,1]], "iris data with cost ($)")
setCellStyle(sheetTitle[[1,1]], csSheetTitle)

default.format = list(
  '1'=csdefault,
  '2'=csdefault,
  '3'=csdefault,
  '4'=csdefault)
dollar.format =list(
  'notused'=csdollar)

# here is where I create the dollar.format list object that will eventuall be fed to addDataFrame
dollar.format.list <- rep(dollar.format, 2)
names(dollar.format.list) <- as.character(c(6, 7))

addDataFrame(iris, sheet, startRow=3, startColumn=1, colStyle=c(default.format,dollar.format.list), colnamesStyle = csTableColNames)

saveWorkbook(test , "iriswithdollarx2.xlsx") 

Answer 1

我不知道你是否还需要它，但我花了一些时间与 xlsx 包“战斗”，以便在不知道的情况下从 R 生成包含大量表格的 Excel 文件提前确定列数，所以这是我的策略。

重点是colStyle列表的创建；而不是

default.format = list(
  '1'=csdefault,
  '2'=csdefault,
  '3'=csdefault,
  '4'=csdefault)

快捷方式是将列表创建为 list 对象的向量，然后将名称分配给其元素:

default.format <-  rep(list(csdefault), 4) # style for the first 4 columns
dollar.format <- rep(list(csdollar), (dim(iris)[2]-length(default.format))) # style for remaining columns
format <- c(default.format, dollar.format) # create the colStyle list
names(format) <- seq(1, dim(iris)[2], by = 1) # assign names to list elements

# add dataframe to the workbook
addDataFrame(iris, sheet, startRow=3, startColumn=1, colStyle=format, colnamesStyle = csTableColNames)