使用R中的`readxl`包对彩色单元格进行分类

Question

我要做的事情与NSaunder's blog所做的事情完全一样：将Excell中的彩色单元格更改为一个类别。但是，我正在使用readxl软件包，而NSaunder的帖子使用了xlsx软件包。 xlsx程序包具有一个名为getCellStyle的函数，该函数返回可用于确定和重新分类单元格颜色的信息列表。我的问题是：使用readxl包时是否可以使用类似的方法？

再次从NSaunder的博客中借阅，here是一些示例数据。

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    

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