R:呈现xtable

Question

我有一个.Rmd文件，其中包含：

```{r, echo=FALSE, message=FALSE, results='asis'}

图书馆(Xtable)

打印(xtable(GroupGrundALL))

使用RStudio中的“Word”按钮，它创建并打开一个Word文件，但只显示以下文本行，而不显示预期(呈现)表本身：

R 3.2.2中由X表1.7-4包生成的乳胶表% Wed Oct 2111:14:28 2015

当我在控制台跑的时候..。

library(xtable)
print(xtable(groupGrundALL)) 

我得到了LaTeX代码：

% latex table generated in R 3.2.2 by xtable 1.7-4 package
% Wed Oct 21 11:16:48 2015
\begin{table}[ht]
\centering
\begin{tabular}{rlrrr}
\hline
& Retouren.Grund & Wert & Menge & Anzahl \\ 
\hline
1 & Fehlbestellung & 685395.00 & 11469.00 & 222 \\ 
2 & andere & 237581.00 & 4354.00 & 179 \\ 
3 & Abgelaufene Ware & 129780.00 & 3522.00 & 1077 \\ 
4 & beschädigte Ware & 37417.00 & 729.00 & 143 \\ 
5 & Falschlieferung & 9943.00 & 280.00 &  14 \\ 
6 & nicht abgeholt & 1471.00 & 21.00 &  11 \\ 
7 & weggezogen & 25.00 & 1.00 &   1 \\ 
\hline
\end{tabular}
\end{table}

如何在Word文档中呈现和显示表本身？

非常感谢你的帮助！

Answer 1

据我所知，xtable只支持HTML和LaTeX格式( LaTeX是默认的)。如果要将文档呈现为Word文件，则需要以标记格式传递表。至于现在要做什么的选项，以下是您可以考虑的几个选项(作为适合您的标记文档的代码提供)：

如果编织到Word文档：

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

```{r}

groupGrundALL <-

结构(Retouren.Grund=结构(c(5L，2L，1L，3L，4L )，

6L，7L)，.Label = c("Abgelaufene Ware"，"andere"，"beschadigte Ware"，

"Falschlieferung“、"Fehlbestellung”、"nicht abgeholt“、"weggezogen”

)，Wert = c(685395,237581,129780,37417，

9943,1471，25)，门格= c(11469,4354,3522,729,280，21，1)

)，.Names = c("Retouren.Grund"，

“row.names = c(NA，-7L)，class = "data.frame")

## `knitr::kable` 
```{r, echo=FALSE, message=FALSE, results='asis'}

针织品：：kable(groupGrundALL格式= "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}

图书馆(Pixiedust)

尘埃(GroupGrundALL) %>%

Sprinkle_print_method(“减价”)

如果您很乐意从GitHub安装软件包，还可以使用Grmd包(devtools::install_github("gforge/Grmd"))并连接到docx_document，它允许您使用来自xtable、kable和pixiedust的HTML输出。这意味着您还可以使用xtable和pixiedust的所有自定义。文档完成后，它将保存为HTML文件，因此您可以右键单击并打开为word文档，也可以将扩展名更改为.docx。

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


```{r}

groupGrundALL <-

结构(Retouren.Grund=结构(c(5L，2L，1L，3L，4L )，

6L，7L)，.Label = c("Abgelaufene Ware"，"andere"，"beschadigte Ware"，

"Falschlieferung“、"Fehlbestellung”、"nicht abgeholt“、"weggezogen”

)，Wert = c(685395,237581,129780,37417，

9943,1471，25)，门格= c(11469,4354,3522,729,280，21，1)

)，.Names = c("Retouren.Grund"，

“row.names = c(NA，-7L)，class = "data.frame")

## `xtable` with HTML
```{r, echo=FALSE, message=FALSE, results='asis'}

图书馆(Xtable)

打印(xtable(GroupGrundALL)，type = "html")

## `knitr::kable` 
```{r, echo=FALSE, message=FALSE, results='asis'}

kable(groupGrundALL，format = "html")

## `pixiedust` with HTML
```{r, warning = FALSE}

图书馆(Pixiedust)

尘埃(GroupGrundALL) %>%

sprinkle_print_method("html")

我对pixiedust有很强的偏见(很明显)，但是knitr::kable可能是处理简单的、不需要大量定制的简单标记表的最快方法。