R XLConnect-基于列颜色筛选列
在R XLConnect-基于列颜色筛选列,r,excel,xlconnect,R,Excel,Xlconnect,在XLconnect软件包（或R中的任何其他软件包）中，是否可以读取Excel表格的标题中包含颜色，并根据这些颜色在R中对其进行过滤 例如，A的列标题，C&E用绿色填充，在R中读取后，是否可以根据该颜色对其进行过滤 谢谢是的，我想是这样的： 阅读R，使用xlsx包装并提取： library(xlsx) wb <- loadWorkbook("test.xlsx") sheet1 <- getSheets(wb)[[1]] 现在，有一个函数为您提供单元格RGB值： 注意：下一
XLconnectRExcel标题中包含颜色，并根据这些颜色在R
中对其进行过滤
例如，A的列标题
，C&E
用绿色填充，在R中读取后，是否可以根据该颜色对其进行过滤
谢谢是的，我想是这样的：
阅读R
，使用xlsx
包装并提取：
library(xlsx)
wb <- loadWorkbook("test.xlsx")
sheet1 <- getSheets(wb)[[1]]
现在，有一个函数为您提供单元格RGB
值：
注意：下一行给出了单元格的背景色style$getFillForegroundXSSFColor（）
cellColor是我的回答！没问题：-）请不要忘了选择答案：-邓恩，幸运的是我的声誉不到15！真的很抱歉只是在开玩笑，不用担心很乐意帮忙：-）不正确@user1703914。因为这是你的帖子，虽然你不能投票给任何答案，但你可以选择对你最有帮助的（点击旁边的灰色勾号）。
# get all rows
rows <- getRows(sheet1)
cells <- getCells(rows)
# quick look at the values
sapply(cells, getCellValue)
# 1.1 2.1 3.1 4.1 5.1 6.1 7.1 8.1 9.1 10.1 11.1
# "x" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10"
styles <- sapply(cells, getCellStyle)
cellColor <- function(style) {
fg <- style$getFillForegroundXSSFColor()
rgb <- tryCatch(fg$getRgb(), error = function(e) NULL)
rgb <- paste(rgb, collapse = "")
return(rgb)
}