不知道是不是楼主要的结果。
# 加载openxlsx包
library(openxlsx) # 这个包只能处理xlsx格式的文件
# 创建工作簿wb并添加工作表data
wb = createWorkbook()
addWorksheet(wb, "data")
# 捏造一个数据框A
x = -5:5
y = 2 * x
A = data.frame(x, y)
# 把数据框A写入wb工作簿的data工作表
writeData(wb, "data", A)
# 设置条件格式
negStyle = createStyle(fontColour = "#9C0006",
bgFill = "#FFC7CE")
conditionalFormatting(wb, "data",
cols = 1:2,
rows = 1:nrow(A) + 1,
rule = ">=2",
style = negStyle)
# 保存工作簿
saveWorkbook(wb, "conditionalFormattingExample.xlsx", TRUE)
# 打开工作簿
openXL(wb)