R Markdown：xtable 部分与代码编织成 PDF

问题描述

我在将表格编织为 PDF 时遇到问题 - 第一个表格没有正确打印，尽管我对所有 3 个表格使用了相同的模式 - 第一个表格部分打印了代码：

我一直使用这个代码直到第一个表：

```{r echo=FALSE,warning=FALSE}
library("markdown")
library(xtable)
options(xtable.comment = FALSE)
```

## Aufgabe:

Die durchschnittliche Anzahl an Brüchen für jeden Wolltyp und Druckvariante ist:

```{r echo=FALSE}
round(with(warpbreaks,tapply(breaks,list(wool,tension),mean)),2)
``` 

## Aufgabe:

```{r echo=FALSE}
a <- as.vector(prop.table(margin.table(UCBAdmissions,c(2,3,1)),c(1,2)))[1:12]
a <- matrix(a,nrow=2)
rownames(a) <- c("Male","Female")
colnames(a) <- c("A","B","C","D","E","F")
```

```{r echo=FALSE}
a <- xtable(a,align=xalign(a),digits=xdigits(a),display=xdisplay(a))
```

```{r results='asis',echo=FALSE}
xtable(a,digits = 1,caption = "Relative Zulassungshäufigkeit (in %) je nach 
Department und Geschlecht")
```

如何正确打印第一个表格？

解决方法

将输出包裹在一个原始的 tex 块中，这样 Pandoc 就不会碰到它：

````{=tex}
```{r results='asis',echo=FALSE}
xtable(a,digits = 1,caption = "Relative Zulassungshäufigkeit (in %) je nach 
Department und Geschlecht")
```
````