r - 如何使用 write.xlsx 为单元格着色(简单示例)

Question

我正在将 R 数据帧写入 .xlsx 文件。

我希望某些单元格填充颜色。我在 R 中使用 xlsx 包，但我发现该手册很难理解。这是一个简单的例子:

data(cars)
write.xlsx(cars, "cars.xlsx")

然后，我想填写 dist 在 20 到 25 之间的单元格，例如

因为我只有一个使用 write.xlsx 直接写入的数据框，所以我没有工作簿 java 对象。

所以，我认为 ?CellStyle 中的示例不适用于这种情况。

我希望有一种简单的方法，例如，使用 write.xlsx 的参数定义单元格样式，或者通过选择数据框中的单元格(即，不是在 java 中)对象工作簿)。

Answer 1

您需要使用xlsx的低级API。请参阅 CellStyle 函数中的示例。

wb <- createWorkbook()
sheet <- createSheet(wb, "Sheet1")
rows  <- createRow(sheet, rowIndex=1)    
cell.1 <- createCell(rows, colIndex=1)[[1,1]]     
setCellValue(cell.1, "Hello R!")
cellStyle1 <- CellStyle(wb) +
    Fill(backgroundColor="orange", foregroundColor="orange",
    pattern="SOLID_FOREGROUND") 
setCellStyle(cell.1, cellStyle1) 
# Then save the workbook 
saveWorkbook(wb, "filename.xlsx")

另请参阅 addDataFrame 函数来添加数据帧，然后使用低级 API 操作单元格方面:

wb <- createWorkbook()
sheet  <- createSheet(wb, sheetName="your nice sheet name")
addDataFrame(cars, sheet, row.names=FALSE)
# add manipulations here
saveWorkbook(wb, "filename.xlsx")