blocks|key|576203|text|R-Bloggers提供了一个功能，可以为您完成这项工作。我在此列出答案，供日后参考。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|576204|使用xlsx包读取excel文件：|offset|length|style|CODE|576205|library(xlsx)
wb+++++<-+loadWorkbook("test.xlsx")
sheet1+<-+getSheets(wb)[[1]]

#+get+all+rows
rows++<-+getRows(sheet1)
cells+<-+getCells(rows)|code-block|syntax|javascript|576206|此部分提取稍后将用于获取单元格的背景颜色(或其他样式信息)的信息：|576207|styles+<-+sapply(cells,+getCellStyle)+#This+will+get+the+styles|576208|function+--识别/提取单元格背景色：的|BOLD|576209|cellColor+<-+function(style)+
+++{
++++fg++<-+style$getFillForegroundXSSFColor()
++++rgb+<-+tryCatch(fg$getRgb(),+error+=+function(e)+NULL)
++++rgb+<-+paste(rgb,+collapse+=+"")
++++return(rgb)
+++}|576210|error将处理没有背景色的单元格。|576211|使用sapply，您可以获得所有单元格的背景色：|576212|sapply(styles,+cellColor)|576213|还可以通过了解RGb代码对它们进行分类/标识：|576214|mycolor+<-+list(green+=+"00ff00",+red+=+"ff0000")
m+++++<-+match(sapply(styles,+cellColor),+mycolor)
labs++<-names(mycolor)[m]|576215|您可以阅读更多内容，并学习如何在R-博客上应用它。|576216|您可以从RapidTables.com获得RGB代码。|576217|entityMap|0|LINK|mutability|MUTABLE|url|https://www.r-bloggers.com/when-life-gives-you-coloured-cells-make-categories/|1|http://www.rapidtables.com/web/color/RGB_Color.htm^0|0|2|4|0|0|0|0|0|8|9|E|0|8|0|0|0|I|0|5|0|0|O|2|6|0|0|0|N|0|0|0|P|G|4|0|0|0|R|4|F|1|0^^$0|@$1|2|3|4|5|6|7|1J|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1K|8|@$D|1L|E|1M|F|G]]|9|@]|A|$]]|$1|H|3|I|5|J|7|1N|8|@]|9|@]|A|$K|L]]|$1|M|3|N|5|6|7|1O|8|@]|9|@]|A|$]]|$1|O|3|P|5|J|7|1P|8|@]|9|@]|A|$K|L]]|$1|Q|3|R|5|6|7|1Q|8|@$D|1R|E|1S|F|S]|$D|1T|E|1U|F|S]|$D|1V|E|1W|F|G]]|9|@]|A|$]]|$1|T|3|U|5|J|7|1X|8|@]|9|@]|A|$K|L]]|$1|V|3|W|5|6|7|1Y|8|@$D|1Z|E|20|F|S]|$D|21|E|22|F|G]]|9|@]|A|$]]|$1|X|3|Y|5|6|7|23|8|@$D|24|E|25|F|S]|$D|26|E|27|F|G]]|9|@]|A|$]]|$1|Z|3|10|5|J|7|28|8|@]|9|@]|A|$K|L]]|$1|11|3|12|5|6|7|29|8|@$D|2A|E|2B|F|S]]|9|@]|A|$]]|$1|13|3|14|5|J|7|2C|8|@]|9|@]|A|$K|L]]|$1|15|3|16|5|6|7|2D|8|@$D|2E|E|2F|F|S]]|9|@$D|2G|E|2H|1|2I]]|A|$]]|$1|17|3|18|5|6|7|2J|8|@$D|2K|E|2L|F|S]]|9|@$D|2M|E|2N|1|2O]]|A|$]]|$1|19|3|-4|5|6|7|2P|8|@]|9|@]|A|$]]]|1A|$1B|$5|1C|1D|1E|A|$1F|1G]]|1H|$5|1C|1D|1E|A|$1F|1I]]]]

R-Bloggers provided a function that will do the job for you. I am including the answer here for future reference.

Read the excel file using <code>xlsx</code> package:

<pre><code>library(xlsx)
wb &lt;- loadWorkbook("test.xlsx")
sheet1 &lt;- getSheets(wb)[[1]]

# get all rows
rows &lt;- getRows(sheet1)
cells &lt;- getCells(rows)
</code></pre>

This part extracts the information that later will be used for getting background color (or other style information) of the cells:

<pre><code>styles &lt;- sapply(cells, getCellStyle) #This will get the styles
</code></pre>

This is the <code>function</code> that identifies/extracts the cell background color:

<pre><code>cellColor &lt;- function(style) 
 {
 fg &lt;- style$getFillForegroundXSSFColor()
 rgb &lt;- tryCatch(fg$getRgb(), error = function(e) NULL)
 rgb &lt;- paste(rgb, collapse = "")
 return(rgb)
 }
</code></pre>

<code>error</code> will handle the cells with no background color.

Using <code>sapply</code> you can get the background color for all of the cells:

<pre><code>sapply(styles, cellColor)
</code></pre>

You can also categorize/identify them by knowing the RGb codes:

<pre><code>mycolor &lt;- list(green = "00ff00", red = "ff0000")
m &lt;- match(sapply(styles, cellColor), mycolor)
labs &lt;-names(mycolor)[m]
</code></pre>

You can read more and learn how to apply it at <a href="https://www.r-bloggers.com/when-life-gives-you-coloured-cells-make-categories/" rel="noreferrer">R-bloggers</a>

You can get the RGB codes from <a href="http://www.rapidtables.com/web/color/RGB_Color.htm" rel="noreferrer">RapidTables.com</a>

blocks|key|2290946|text|老问题，但也许它可以帮助某人在未来。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2290947|POI+(java)库中有一种奇怪的行为(至少在我的计算机上)。这是没有得到正确的颜色。当颜色是基本颜色(索引颜色)时，@M--的答案中提供的代码工作得很好，但是当颜色是灰度时就不能工作了。为了绕开，您可以使用下面的代码使用getTint+()函数。Tint是介于-1+(暗)到1(光)之间的数字，结合RGB+(getRgb+())函数，可以完全恢复颜色。|offset|length|style|CODE|2290948|cell_color+<-+function(style){
++fg++<-+style$getFillForegroundXSSFColor()

++hex+<-+tryCatch(fg$getRgb(),+error+=+function(e)+NULL)
++hex+<-+paste0("#",+paste(hex,+collapse+=+""))
++tint+<-+tryCatch(fg$getTint(),+error+=+function(e)+NULL)

++if(!is.null(tint)+&+!is.null(hex)){+++#+Tint+varies+between+-1+(dark)+and+1+(light)
++++rgb_col+<-+col2rgb(col+=+hex)

++++if(tint+<+0)+rgb_col+<-+(1-abs(tint))*rgb_col
++++if(tint+>+0)+rgb_col+<-+rgb_col+%2B+(255-rgb_col)*tint

++++hex+<-+rgb(red+=+rgb_col[1,+1],+
+++++++++++++++green+=+rgb_col[2,+1],+
+++++++++++++++blue+=+rgb_col[3,+1],+
+++++++++++++++maxColorValue+=+255)
++}

++return(hex)
}|code-block|syntax|javascript|2290949|提供帮助的一些参考资料：|2290950|https://poi.apache.org/apidocs/dev/org/apache/poi/hssf/usermodel/HSSFExtendedColor.html#getTint--|2290951|bug.cgi?id=50787|2290952|使用Apache获取Excel填充颜色|2290953|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/users/6461462/m|1|2|https://bz.apache.org/bugzilla/show_bug.cgi?id=50787|3|https://stackoverflow.com/questions/52018934/getting-excel-fill-colors-using-apache-poi^0|0|34|A|4C|9|1O|4|0|0|0|0|0|2P|1|0|0|G|2|0|0|J|3|0^^$0|@$1|2|3|4|5|6|7|17|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|18|8|@$D|19|E|1A|F|G]|$D|1B|E|1C|F|G]]|9|@$D|1D|E|1E|1|1F]]|A|$]]|$1|H|3|I|5|J|7|1G|8|@]|9|@]|A|$K|L]]|$1|M|3|N|5|6|7|1H|8|@]|9|@]|A|$]]|$1|O|3|P|5|6|7|1I|8|@]|9|@$D|1J|E|1K|1|1L]]|A|$]]|$1|Q|3|R|5|6|7|1M|8|@]|9|@$D|1N|E|1O|1|1P]]|A|$]]|$1|S|3|T|5|6|7|1Q|8|@]|9|@$D|1R|E|1S|1|1T]]|A|$]]|$1|U|3|-4|5|6|7|1U|8|@]|9|@]|A|$]]]|V|$W|$5|X|Y|Z|A|$10|11]]|12|$5|X|Y|Z|A|$10|P]]|13|$5|X|Y|Z|A|$10|14]]|15|$5|X|Y|Z|A|$10|16]]]]

Old question but maybe it can help someone in the future.

There is a strange behavior in the POI (java) library (at least on my computer). It is not getting the colors correctly. The code provided in the <a href="https://stackoverflow.com/users/6461462/m">@M--</a>'s answer works well when the color is a basic color (indexed color), but does not work when the color is, for example, in grayscale. To get around you can use the following code using the <code>getTint ()</code> function. Tint is a number between -1 (dark) and 1 (light), and combining it with the RGB (<code>getRgb ()</code>) function, you can completely recover the color.

<pre><code>cell_color &lt;- function(style){
 fg &lt;- style$getFillForegroundXSSFColor()

 hex &lt;- tryCatch(fg$getRgb(), error = function(e) NULL)
 hex &lt;- paste0("#", paste(hex, collapse = ""))
 tint &lt;- tryCatch(fg$getTint(), error = function(e) NULL)

 if(!is.null(tint) &amp; !is.null(hex)){ # Tint varies between -1 (dark) and 1 (light)
 rgb_col &lt;- col2rgb(col = hex)

 if(tint &lt; 0) rgb_col &lt;- (1-abs(tint))*rgb_col
 if(tint &gt; 0) rgb_col &lt;- rgb_col + (255-rgb_col)*tint

 hex &lt;- rgb(red = rgb_col[1, 1], 
 green = rgb_col[2, 1], 
 blue = rgb_col[3, 1], 
 maxColorValue = 255)
 }

 return(hex)
}
</code></pre>

Some references to help: 

<a href="https://poi.apache.org/apidocs/dev/org/apache/poi/hssf/usermodel/HSSFExtendedColor.html#getTint--" rel="nofollow noreferrer">https://poi.apache.org/apidocs/dev/org/apache/poi/hssf/usermodel/HSSFExtendedColor.html#getTint--</a>

<a href="https://bz.apache.org/bugzilla/show_bug.cgi?id=50787" rel="nofollow noreferrer">https://bz.apache.org/bugzilla/show_bug.cgi?id=50787</a>

<a href="https://stackoverflow.com/questions/52018934/getting-excel-fill-colors-using-apache-poi">Getting Excel fill colors using Apache POI</a>

Is there any way to read out the color-index of cells from excel files with R?

While I can set the cell color with packages like <code>XLConnect</code> or <code>XLSX</code>, I have found no way to extract the color-information from existing workbooks.

Using R to read out excel-colorinfo

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

有没有办法用R从excel文件中读出单元格的颜色索引？虽然我可以使用像XLConnect或XLSX这样的包来设置颜色，但我还没有找到从现有工作簿中提取颜色信息的方法。

问用R读出excel-彩色信息
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问用R读出excel-彩色信息EN