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
不过,这是一个非常琐碎的电子表格,您必须确保只处理在真实文档中希望处理的列/行。