R识别Excel电子表格中突出显示的行

Question

我正在阅读R中的Excel文件，我正在尝试将函数应用于所有灰色（灰色）突出显示的单元格。是否可以使用R读取工作簿并检测这些突出显示的单元格？

Answer 1

尝试使用xlsx包。 例如：

library(xlsx)
df <- loadWorkbook("test.xlsx")
sheet1 <- getSheets(df)[[1]]
rows  <- getRows(sheet1)
cells <- getCells(rows)

styles <- sapply(cells, getCellStyle)

cellColor <- function(style) {
  fg  <- style$getFillForegroundXSSFColor()
  rgb <- tryCatch(fg$getRgb(), error = function(e) NULL)
  rgb <- paste(rgb, collapse = "")
  return(rgb)

}

myCellColors <- sapply(styles, cellColor). 

从这里编辑：https://www.r-bloggers.com/when-life-gives-you-coloured-cells-make-categories/