setCellStyle - 使用 XLConnect 将单元格样式（百分比）应用于矩阵

Question

我的问题是基于上一个问题Formatting of numbers using Mirai's XLConnect中提到的一个问题。我无法从@joran 实施这个解决方案，我想我可能不是唯一遇到这个问题的人。

我想将相关矩阵 (10x10) 导出到 excel。它被保存为一个名为导出的矩阵。

library(XLConnect)
wb <- loadWorkbook(paste0("corr_test.xlsx"), create = TRUE)
prcntg <- createCellStyle(wb)
setDataFormat(prcntg, format = "0.00%")
createSheet(wb, name="corr")
writeWorksheet(wb,export,"corr",startRow = 2, startCol = 1, header = TRUE)
setColumnWidth(wb, sheet = "corr", column = 1:30, width = -1)
setCellStyle(wb, sheet = "corr", row= rep(3:12,times=10), col = rep(1:10,     
+times=12), cellstyle = prcntg)
saveWorkbook(wb)

这条线我有问题

setCellStyle(wb, sheet = "corr", row= rep(3:12,times=10), col = rep(1:10,     
+times=12), cellstyle = prcntg)

我无法将样式应用到整个矩阵。它是关于参数 row 和 col 引起麻烦的。

结果如下图所示。

我已经尝试了无数种组合。非常感谢任何帮助

Answer 1

下面应该这样做：

rc = expand.grid(row = 3:12, col = 1:10)
setCellStyle(wb, sheet = "corr", row= rc$row, col = rc$col, cellstyle = prcntg)

setCellStyle - 使用 XLConnect 将单元格样式（百分比）应用于矩阵

setCellStyle - apply cell style (percent) to matrix using XLConnect

row

r

col

rep

xlconnect