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

Question

我在将 table 编织成 PDF 时遇到问题 - 第一个 table 打印不正确，尽管我对所有 3 个 table 使用相同的图案 -第一个 table 部分打印代码：

我用这个代码直到第一个 table:

```{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")
```

如何正确打印第一个 table？

Answer 1

将输出包装在原始 tex 块中，这样 Pandoc 就不会触及它：

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

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

R Markdown: xtable is knitted partially with code to PDF

r

r-markdown

knitr

xtable