在 R 中创建 xlsx 工作表 - 字体颜色不起作用

我正在开发一个项目，需要从特定类型的数据框架自动生成数据电子表格。我读过关于如何执行此操作的有用解释here http://www.sthda.com/english/wiki/r-xlsx-package-a-quick-start-guide-to-manipulate-excel-files-in-r#create-and-format-a-nice-excel-workbook，并根据这个解释，我在中创建了一些代码R.Studio（专业版1.1.383）使用xlsx包（版本 0.5.7）。我的代码从现有数据框中生成数据电子表格TABLE。这是我正在使用的代码，其中使用模拟数据框来创建可重现的示例：

#In this code we create a mock data frame called TABLE
#In practice we have a larger data frame with data that is not reproduced here

TABLE <- data.frame(Var1 = c(1, 6, 3, 9, 10, 4, 3, 5, 2, 2), 
                    Var2 = c(18.1, 14.2, 12.0, 21.3, 33.4, 16.0, 15.4, 8.6, 6.7, 12.9),
                    Var3 = c(0, 1, 1, 0, 1, 1, 0, 0, 0, 0));

#Create workbook, sheet, columns and styles
WB             <- createWorkbook(type = "xlsx");
SHEET          <- createSheet(WB, sheetName = "My Data");

rows           <- createRow(SHEET, rowIndex = 1:5);
cells          <- createCell(rows, colIndex = 1:(1+ncol(TABLE)));

STYLE_TITLE    <- CellStyle(WB) + 
                  Font(WB, name = "Calibri", heightInPoints = 16, 
                       color = "black", isBold = TRUE, isItalic = FALSE);

#Add data from data frame TABLE
addDataFrame(TABLE, SHEET, startRow = 4L, startColumn = 2L, 
             colnamesStyle = STYLE_COLNAMES, row.names = FALSE);

#Add title
setCellValue(cells[[2, 2]], "This is my spreadsheet title"); 
setCellStyle(cells[[2, 2]], STYLE_TITLE);

#Save workbook
saveWorkbook(WB, "My Pretty Workbook.xlsx");

这段代码成功生成了我想要的电子表格，一切看起来都是我想要的，除了标题以白色字体出现，这意味着它们无法在电子表格的白色背景上看到。在我看来，这与我指定的代码部分相反Font with color = "black"。我也尝试过使用color = "#000000"这得到了相同的结果。

为什么我的标题和信息文本以白色字体显示？我该如何解决？

如果您输入STYLE_TITLE在控制台中，您可以在输出中看到（查看下$font$ref），颜色被设置为FFFFFF，它是白色的。下面是我在控制台中看到的内容（我仅显示了输出的相关部分）。请注意FFFFFF在最后一行：

STYLE_TITLE    <- STYLE_TITLE    <- CellStyle(WB) + 
  Font(WB, name = "Calibri", heightInPoints = 16, 
       color = "black", isBold = TRUE, isItalic = FALSE)

STYLE_TITLE

$font
$ref
[1] "Java-Object{<xml-fragment xmlns:main=\"http://schemas.openxmlformats.org
/spreadsheetml/2006/main\">\n  <main:name val=\"Calibri\"/>\n  <main:sz val=\"16.0
\"/>\n  <main:color rgb=\"FFFFFF\"/>\n  <main:b val=\"true\"/>\n</xml-fragment>}"

我不知道为什么会发生这种情况或如何获得Font函数将“black”或“#000000”转换为正确的颜色代码000000。然而，我确实（奇怪地）发现其他颜色编码可以正常工作。例如，您可以使用颜色"#010101"，几乎是黑色的：

STYLE_TITLE    <- STYLE_TITLE    <- CellStyle(WB) + 
  Font(WB, name = "Calibri", heightInPoints = 16, 
       color = "#010101", isBold = TRUE, isItalic = FALSE)

STYLE_TITLE

$font
$ref
[1] "Java-Object{<xml-fragment xmlns:main=\"http://schemas.openxmlformats.org/spreadsheetml/2006/main\">\n
<main:name val=\"Calibri\"/>\n  <main:sz val=\"16.0\"/>\n  <main:color
rgb=\"010101\"/>\n  <main:b val=\"true\"/>\n</xml-fragment>}"

此颜色名称和其他颜色名称以及 RGB 颜色规范（例如“红色”、“紫色”、“#F372B6”）也在Font输出对象，并且颜色在电子表格输出中按预期呈现。

我知道您想要 100% 黑色，但如果您可以满足于 99.6% 黑色，则此解决方法应该可以完成工作。