使用“`readxl`”包对彩色单元格进行分类

Question

我想要做的就像NSaunder的博客所做的那样:将Excell中的有色单元格更改为一个类别。然而，我使用的是readxl包，而NSaunder的post使用的是xlsx包。xlsx包有一个名为getCellStyle的函数，它返回可用于确定和重新调整单元格颜色的信息列表。我的问题是:在使用readxl包时是否有类似的方法？

再一次，这里是一些示例数据，它借用了NSaunder的博客。

Answer 1

download.file("https://nsaunders.files.wordpress.com/2014/08/test.xlsx", "test.xlsx")

rx <- readxl::read_excel("test.xlsx")

tx <- tidyxl::xlsx_cells("test.xlsx")

rx$cat <- factor(tx$local_format_id[-1], labels = c("A", "B"))

rx
## # A tibble: 10 x 2
##        x cat  
##    <dbl> <fct>
##  1    1. A    
##  2    2. B    
##  3    3. A    
##  4    4. B    
##  5    5. A    
##  6    6. B    
##  7    7. A    
##  8    8. B    
##  9    9. A    
## 10   10. B    

不过，这是一个非常琐碎的电子表格，您必须确保只在实际的文档中处理想要处理的列/行。