r - r 中具有特定字符值的颜色单元格以导出到 xlsx

Question

我正在尝试完成一些不应该那么困难的事情，但它逃脱了我的尝试。
所以我有一个 R Data Frame (df) 看起来像这样:

df

MeanTemperature(ºC) Longitude Latitude Height  FinalConsiderations
5                   91ºW      152ºS    548m    Slightly Cooler
16                  185ºE     53ºN     722m    Unchanged
22                  16ºW      2ºS      206m    Significantly Warmer

数据框是过滤分析数据的结果。最终产品是 Excel (xlsx)最后一列是整体分析的结论。所以，这些步骤都已经处理好了，但是这些表相当大，所以如果能够着色就好了，例如 红色 上面写着 "Significantly Warmer" .
我尝试使用来自所述数据框的工作簿

  wb <- loadWorkbook(file) #where file is the location path
 

在这里，我想收集那些以红色显示“显着温暖”的单元格，然后将工作簿导出到 xlsx。

 fo1 <- Fill(foregroundColor="red")    # create fill object # 1
 cs1 <- CellStyle(wb, fill=fo1)        # create cell style # 1
 sheets <- getSheets(wb)               # get all sheets

但是现在我找不到在列的 wb 设置中创建函数的方法 $FinalConsiderations == 'Slightly Cooler' ，单元格前景为红色，然后导出到 xlsx。

Answer 1

所以我会写下我是如何解决它的，以防它帮助任何有类似情况的人。
我下载了openxlsx包裹。

library(openxlsx) #recall the library

wb <- createWorkbook() # create a workbook

addWorksheet(wb, "Sheet", gridLines = TRUE) #add a worksheet to the workbook

writeData(wb, "Sheet", df) # write my analysis into the worksheet of the workbook, 
 #where df is the name of my data frame

之后，我按照 createStyle 创建样式。功能(参见文档)。
就我而言，我必须在数据中查找特定字符

 warm1Style <- createStyle(fontColour = "#000000", bgFill = "#FFFF00")
 # here search for the respective HEX color-code and assign a name to the style

 conditionalFormatting(wb, "Sheet", cols = 1:ncol(df),
                  rows = 1:nrow(df), rule = "Significantly Warmer", style = warm1Style,
                  type = "contains")
# account the condition where "Significantly Warmer" is contained in a cell,
# then apply the respective style to it (in this case, warm1Style)

然后就是这样，就像可以对工作簿中的任何短语或字符一样。
最后，将工作簿另存为 xlsx:

saveWorkbook(wb, file, overwrite = TRUE)