Категоризация цветных ячеек с использованием пакета `readxl` в R

Question

То, что я пытаюсь сделать, в точности похоже на то, что сделал блог NSaunder : измените цветную ячейку в Excell на категорию. Однако я использую пакет readxl, тогда как пост NSaunder использует пакет 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    

Это довольно тривиальная электронная таблица, и вам нужно убедиться, что вы работаете только с теми столбцами / строками, которые вам нужны в реальном документе.