r - 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)