无法将rmarkdown输出中xtable单元格的颜色更改为pdf

我有一个r降价代码：

---
header-includes:
   - \usepackage{xcolor, colortbl}
output:
    pdf_document:
      latex_engine: xelatex

---



```{r, results="asis"}

library(xtable)
library(formattable)
# Your data
tab = data.frame(category = c("A","B","C"), groupA = c(.2,.3,.5), groupB= c(.6,.7,.9))

# Function to cut your data, and assign colour to each range
f <- function(x) cut(x, c(0, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, Inf), 
                      labels=c("green", "red", "blue", "orange", "yellow", "purple", "brown", "white"),
                      include.lowest = FALSE, right = TRUE)

# Apply function to columns: this overwrites your data
tab[c("groupA", "groupB")] <- lapply(tab[c("groupA", "groupB")], function(x)
                                            paste0("\\cellcolor{", f(x), "}", x))
# Sanitise output 
print(xtable(tab), sanitize.text.function = identity)
```

---
标题包括：
-\usepackage{xcolor，colortbl}
输出：
pdf\U文件：
乳胶引擎：Xeletex
---
```{r，results=“asis”}
图书馆（xtable）
库（格式化表）
#你的数据
tab=data.frame（category=c（“A”、“B”、“c”）、groupA=c（.2、.3、.5）、groupB=c（.6、.7、.9））
#功能可剪切数据，并为每个范围指定颜色
f我也无法重现错误。有什么想法我可能会遗漏在这里吗？只需在
pdf\u文档
之后删除
：latex\u引擎：xelatex
，它将使用pdflatex。它对我来说很好。建议：1。确保您可以构建一个简单的文件，例如“file | New file | R Markdown | PDF”中的默认文件。如果这是可行的，那么就从坏的开始添加一些东西，直到问题出现。如果不是，那么问题在于你的RStudio/LaTeX设置。这毫无意义。如果没有该行，您应该会得到一个错误，因为不会定义
\cellcolor
宏。（在与主要示例的当前版本完全相同的文件中，我没有发现任何错误。）
output file: test.knit.md

! LaTeX Error: Missing \begin{document}.

See the LaTeX manual or LaTeX Companion for explanation.
Type  H <return>  for immediate help.
 ...                                              

l.1 <

pandoc.exe: Error producing PDF from TeX source
Error: pandoc document conversion failed with error 43
In addition: Warning message:
running command '"C:/Program Files/RStudio/bin/pandoc/pandoc" +RTS -K512m -RTS test.utf8.md --to latex --from markdown+autolink_bare_uris+ascii_identifiers+tex_math_single_backslash --output test.pdf --template "C:\Users\e598140\Documents\R\win-library\3.2\rmarkdown\rmd\latex\default.tex" --highlight-style tango --latex-engine xelatex --variable graphics=yes --variable "geometry:margin=1in"' had status 43 
Execution halted