使用 Openxslx addstyle 函数从 R 导出到 Excel 时的不同日期格式

Question

我有一个小标题叫“引文”。我想根据特定条件（即具有特定文本）突出显示某些行。我可以通过切片包含文本（作为 data.frame）的行进行格式化，并使用 addStyle() 突出显示整个行。

但是，当我保存工作簿并在 Excel 中打开它时，我发现突出显示的行具有通用格式（而不是日期/自定义格式）。其他行具有与 R 中一样的正常日期，可以在这张图片中看到。

对此有什么建议吗？

wb <- createWorkbook()

addWorksheet(wb, "quotation")

writeDataTable(wb, "quotation", x = quotation)
   
red <- createStyle(fontColour = "#000000",
                         fgFill = "#CC2222")

yellow <- createStyle(fontColour = "#000000",
                         fgFill = "#FFFF00")

redRows = data.frame(which(quotation$note == "no", arr.ind=TRUE))
yellowRows = data.frame(which(quotation$note == "late", arr.ind=TRUE))

# Apply style:
addStyle(wb, "quotation", cols = 1:ncol(quotation), rows = redRows[,1]+1,
         style = highlight0, gridExpand = TRUE)
addStyle(wb, "quotation", cols = 1:ncol(quotation), rows = yellowRows[,1]+1,
         style = highlight, gridExpand = TRUE)

saveWorkbook(wb, "data.xlsx", overwrite = TRUE)

Answer 1

我从这个类似问题找到了问题的答案。我需要在 addStyle() 函数中设置

stack = True

以保持以前的样式（包括日期格式）不被突出显示样式覆盖。