r - 使用 xlsx(R 包)格式化具有相同单元格样式的整个数据框

Question

我有一个列数可变的数据框，我想使用 xlsx 以相同的单元格样式格式化整个数据框。我创建了单元格样式:

pct <- CellStyle(soccer, dataFormat=DataFormat("0.0%"))

但是当我尝试设置 colStyle 时在 addDataFrame 中，我不确定如何创建 pct 的列表这与我的数据框的列数相同。我试过这样的事情:

addDataFrame(x = df, sheet = my.sheet, startRow = i, colStyle=rep(pct, length(df)))

但它不起作用，因为我知道每个元素都必须有一个与列号相对应的名称。

Answer 1

我遇到过同样的问题;你必须创建一个 列表的 CellStyle对象，它会是这样的(假设 df 是一个 data.frame 对象):

pct <- CellStyle(soccer, dataFormat=DataFormat("0.0%"))

dfColIndex <- rep(list(pct), dim(df)[2]) 
names(dfColIndex) <- seq(1, dim(df)[2], by = 1)

addDataFrame(x = df, sheet = my.sheet, startRow = i, colStyle= dfColIndex)

我用列号命名了列表元素，即使从帮助页面看起来不是强制性的(但没有它们它对我不起作用)。

我提供的代码是一个简短的版本

 dfColIndex <- list("1" = pct, 
                    "2" = pct, 
                    "3" = pct, 
                    ... # and so on, for every column of you dataframe)

我在 this blog 找到了一个关于编写 xlsx 文件的有用示例。