如何从 Knitr / R RStudio 将回归结果表输出到 Word？ (mtable, memisc)答案

【问题标题】：How Do I Output Regression Result Tables to Word from Knitr / R RStudio? (mtable, memisc)如何从 Knitr / R RStudio 将回归结果表输出到 Word？ (mtable, memisc)
【发布时间】：2018-01-03 22:21:18
【问题描述】：

我想将回归结果表从 knitr 输出到 Word，但我遇到了麻烦。如果我调整选项，将 mtables 输出到 \LaTeX 可以工作，但在涉及 Word 时我被卡住了。我的 MWE 在下面。

---
output:
  word_document: default
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(memisc)
```

## This section contains ugly text, not a table
```{r eval = T, include = T, echo = F}
lm0 <- lm(sr ~ pop15 + pop75,              data = LifeCycleSavings)
lm1 <- lm(sr ~                 dpi + ddpi, data = LifeCycleSavings)
lm2 <- lm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings)

mt01 <- mtable(lm0,lm1,summary.stats=c("R-squared","N"))
mt12 <- mtable(lm1,lm2,summary.stats=c("R-squared","F","N"))

c("Group 1"=mt01,
"Group 2"=mt12)
```

【问题讨论】：

我很困惑。 memisc::mtable 的帮助页面使用与此几乎相同的代码，并且它有一个关于使输出适合 MS Word 的部分。还支持 html（我的 MSW 也应该可以阅读）：finzi.psych.upenn.edu/R/library/memisc/html/…
你能说得更具体点吗？或者，如果这对你来说很容易，你能举个例子吗？我知道可以创建一个 HTML 表格，然后可以按照here 的描述将其导入为 MS Word 或 LibreOffice，并且我已经阅读了帮助文件。不幸的是，我无法像其他工具（例如 kable）那样将 memisc::mtable 渲染到 Word 中。
您好 RTS，我试过了，帮助页面显示“此文件的内容可以粘贴到 Word 中并转换为 Word 表格。”。我已经尝试过，但无法直截了当。答案似乎并不那么容易。
也感谢您的关注。我想答案将涉及调整 knitr 选项。然而，就目前而言，它是棘手的。

标签： r knitr

【解决方案1】：

我设计了一个有效的丑陋技巧。我希望它可以帮助我这个职位的其他人。我相当肯定存在一种明显且更简单的方法来实现这一点。

---
output:
  word_document: default
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(memisc)
```

## This section contains a table, not ugly text
```{r eval = T, include = T, echo = F}
lm0 <- lm(sr ~ pop15 + pop75,              data = LifeCycleSavings)
lm1 <- lm(sr ~                 dpi + ddpi, data = LifeCycleSavings)
lm2 <- lm(sr ~ pop15 + pop75 + dpi + ddpi, data = LifeCycleSavings)

mt01 <- mtable(lm0,lm1,summary.stats=c("R-squared","N"))
mt12 <- mtable(lm1,lm2,summary.stats=c("R-squared","F","N"))

x = c("Group 1"=mt01,"Group 2"=mt12)

x = memisc::mtable_format_delim(x)
writeLines(x,"table.csv")
x = read.delim("table.csv", header = F, stringsAsFactors = F)
colnames(x) = x[1,]
x = x[-1,]
rownames(x) = NULL
knitr::kable(x)
```

【讨论】：