R: рендеринг xtable

Насколько я знаю, xtable поддерживает только форматы HTML и LaTeX (по умолчанию LaTeX). Если вы визуализируете документ в файл Word, вам необходимо передать свои таблицы в формате уценки. Что касается вариантов того, что делать сейчас, вот несколько из них, которые вы можете рассмотреть (представлены в виде кода, подходящего для вашего документа уценки):

При вязании с документом Word:

---
title: "Sample Document"
output: word_document
---

```{r}
groupGrundALL <- 
  structure(list(Retouren.Grund = structure(c(5L, 2L, 1L, 3L, 4L, 
6L, 7L), .Label = c("Abgelaufene Ware", "andere", "beschadigte Ware", 
"Falschlieferung", "Fehlbestellung", "nicht abgeholt", "weggezogen"
), class = "factor"), Wert = c(685395, 237581, 129780, 37417, 
9943, 1471, 25), Menge = c(11469, 4354, 3522, 729, 280, 21, 1
), Anzahl = c(222, 179, 1077, 143, 14, 11, 1)), .Names = c("Retouren.Grund", 
"Wert", "Menge", "Anzahl"), row.names = c(NA, -7L), class = "data.frame")
```

## `knitr::kable` 
```{r, echo=FALSE, message=FALSE, results='asis'}
knitr::kable(groupGrundALL, format = "markdown")
```  

## `pixiedust`
For markdown tables, `pixiedust` is an extended wrapper for `knitr::kable` that allows you to do some additional formatting without having to preprocess data.

```{r, warning = FALSE}
library(pixiedust)
dust(groupGrundALL) %>%
  sprinkle_print_method("markdown")
```

Если вам удобно устанавливать пакеты из GitHub, вы также можете использовать пакет Grmd (devtools::install_github("gforge/Grmd")) и связать с пакетом docx_document, который позволяет использовать выходные данные HTML из xtable, kable и pixiedust. Это означает, что вам также могут быть доступны все настройки xtable и pixiedust. Когда документ завершен, он сохраняется в виде файла HTML, поэтому вы можете либо щелкнуть правой кнопкой мыши и открыть его как текстовый документ, либо изменить расширение на .docx.

---
title: "Sample Document 2"
output: Grmd::docx_document
---


```{r}
groupGrundALL <- 
  structure(list(Retouren.Grund = structure(c(5L, 2L, 1L, 3L, 4L, 
6L, 7L), .Label = c("Abgelaufene Ware", "andere", "beschadigte Ware", 
"Falschlieferung", "Fehlbestellung", "nicht abgeholt", "weggezogen"
), class = "factor"), Wert = c(685395, 237581, 129780, 37417, 
9943, 1471, 25), Menge = c(11469, 4354, 3522, 729, 280, 21, 1
), Anzahl = c(222, 179, 1077, 143, 14, 11, 1)), .Names = c("Retouren.Grund", 
"Wert", "Menge", "Anzahl"), row.names = c(NA, -7L), class = "data.frame")
```

## `xtable` with HTML
```{r, echo=FALSE, message=FALSE, results='asis'}
library(xtable)
print(xtable(groupGrundALL), type = "html")  
```  

## `knitr::kable` 
```{r, echo=FALSE, message=FALSE, results='asis'}
knitr::kable(groupGrundALL, format = "html")
```  

## `pixiedust` with HTML
```{r, warning = FALSE}
library(pixiedust)
dust(groupGrundALL) %>%
  sprinkle_print_method("html")
```

Я сильно склоняюсь к pixiedust (очевидно), но knitr::kable, вероятно, является самым быстрым способом работы с простыми таблицами уценки, которые не требуют особой настройки.