突出显示 output Excel 文件中的单元格

Question

我有一个像这样的数据框Data2015 ：

> head(Data2015)
    Sample.id Locality.Name Chemicals Activity.Value Measuring.Unit Uncertainty.Value  Uncertainty.Unit
1 104/22/4/P3    xxxxxxxx     CO2         0.192         g/L             0.122              g/L   
2 104/22/4/P3    xxxxxx       C0          1060         mg/L             1060              mg/L    
3 104/22/4/P3    xxxxxx       nh3         0.765         g/L             0.061              g/L   
4 104/22/4/P3    xxxxx        O3          0.876         g/L             0.061              g/L
5  2-0434a F1    xxxxxxx      Co2         0.145         g/L             0.061              g/L
6  2-0434a F1    xxxxxxx      CO          1654         mg/L             9876              mg/L  

我像这样操作数据：

library("dplyr")
Data2015 <- Data2015 %>% mutate(Chemicals = toupper(Chemicals)) 

Data2015$Activity.Value <- ifelse(Data2015$Measuring.Unit == "mg/L",Data2015$Activity.Value * 0.001,Data2015$Activity.Value)
Data2015$Uncertainty.Value <- ifelse(Data2015$Uncertainty.Unit == "mg/L",Data2015$Uncertainty.Value * 0.001,Data2015$Uncertainty.Value)
Data2015$Measuring.Unit[Data2015$Measuring.Unit == 'mg/L'] <- 'g/L'
Data2015$Uncertainty.Unit[Data2015$Uncertainty.Unit == 'mg/L'] <- 'g/L'

并将最终数据帧写入 Excel 工作簿：

wb1 = createWorkbook()
sheet1 = createSheet(wb1, "Data2015")
cs1 <- CellStyle(wb1) + Font(wb1, isBold=TRUE)

addDataFrame(Data2015, sheet=sheet1, startColumn=1, row.names=F)
saveWorkbook(wb1, "Data2015_corrected.xlsx")

是否可以将值已更改的 output 中的案例着色（绿色）？