相关疑难解决方法(0)

我想将数据框导出到Excel并根据特定规则突出显示单元格.我不认为对类似问题的答案是正确的.我认为这是可能的,我认为我接近使用包的CellStyle功能xlsx.

下面我概述了我尝试过的内容.大多数想法来自包帮助文件.当我尝试将我创建的样式应用于符合条件的单元格时,我会一路走到最后并得到错误.我收到错误:Error in .jcall(cell, "V", "setCellStyle", cellStyle$ref) : RcallMethod: invalid object parameter.

library(xlsx)
# create data 
  cols <- sample(c(1:5), 1) # number of columns to vary to mimic this unknown
  label <- rep(paste0("label ", seq(from=1, to=10)))
  mydata <- data.frame(label)
  for (i in 1:cols) {
    mydata[,i+1] <- sample(c(1:10), 10)
  }
# exporting data.frame to excel is easy with xlsx package
  sheetname <- "mysheet"
  write.xlsx(mydata, "mydata.xlsx", sheetName=sheetname)
  file <- "mydata.xlsx"
# but we want …

这是我的 excel 输出在一张纸中的样子，

Total Expenses

Region Jan-18 Feb-18 Mar-18 
Reg1   32     65     56
Reg2   24     45     89
Reg3   15     78     23

Average Expenses

Region Jan-18 Feb-18 Mar-18
Reg1    12    14     13
Reg2    13    15     14
Reg3    11    14     12

我使用 rbind 在 R 中构建它，首先添加带有相应数据集的标题，然后添加空行，然后添加数据集。然而，通过这样做，我失去了实际数据的数字性质。我们可以在为我的数字保留数字数据类型的同时做到这一点吗？

注意：以上是要在一张 Excel 中写入的示例数据，同样我正在构建 4 个不同的表作为数据框列表并使用 write.xlsx 输出它们。