Блог

У меня проблема с моими таблицами при их вязании в 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")
```
````