使用样式和格式将数据框从 R 导出到 Excel

Question

我想将一个大表格（类似于下图中显示的表格）导出到 Excel，并在少数列中突出显示部分字符串。

目前，我正在使用

datatable

显示表格列，使用

rowCallback

函数来突出显示子字符串。然后将表格导出到 Excel，我手动将行从显示的

datatable

复制到 Excel 工作表。

我无法使用

openxlsx

或其他库来完成这个特殊的挑战。

请教如何克服这个挑战！

Answer 1

我已经能够使用下面的代码更改某些特定字符的颜色。此方法仅适用于 Windows。

library(RDOMClient)

path_Excel_File <- "D:/Dropbox/Reponses_Stackoverflow/stackoverflow_346/empty_Excel_File.xlsx"

xlApp <- COMCreate("Excel.Application")
xlApp[["Visible"]] <- TRUE
xlWbk <- xlApp$Workbooks()$Open(path_Excel_File)
Sheets <- xlWbk$Sheets()

cell1 <- Sheets[[1]]$Cells(1,1)
cell1[["Value"]] <- "A"
cell2 <- Sheets[[1]]$Cells(2,1)
cell2[["Value"]] <- "B"
cell3 <- Sheets[[1]]$Cells(1,2)
cell3[["Value"]] <- paste0(LETTERS, collapse = "")
cell4 <- Sheets[[1]]$Cells(2,2)
cell4[["Value"]] <- paste0(LETTERS, collapse = "")

obj_Chars_Four_To_11_To_14 <- Sheets[[1]]$Range("B2")$Characters(10, 4)$Font()
obj_Chars_Four_To_11_To_14[["ColorIndex"]] <- 8

有关 ColorIndex 值，请参阅 https://www.automateexcel.com/excel-formatting/color-reference-for-color-index/.