Goal

呈现使用创建的多个模型的结果lm()函数，一起放在一个格式良好的表格中。该表将在 .Rmd 文件中生成并输出到 PDF 文档。

建议的解决方案

In 使用 R 和 RStudio 进行可重复的研究，有一个例子使用apsrtable()并排显示多个模型的功能。本书提供了以下代码（第173-174页）：

Code

\begin{table}
    \caption{Example Nested Estimates Table with \emph{aprstable}}
    \label{BasicApsrTableExample}
        \begin{center}
<<results= asis , echo=FALSE>>=
# Load apsrtable package
library(apsrtable)
# Create nested regression model table
apsrtable(M1, M2, M3, M4, M5, Sweave = TRUE,
      stars = "default")
@
       \end{center}
\end{table}

模型在哪里M1 ... M5使用分块创建M2 <- lm(Examination ~ Education + Agriculture, data = swiss).

Output

下面是书中报道的结果的屏幕截图。这正是我想要在 .Rmd 文件中创建并输出到 PDF 文档的表格。

Issues

尝试1当我尝试使用这段代码时inside代码块（如下所示）并输出到 PDF，我收到一条错误消息：Error: $ operator is invalid for atomic vectors

```{r}
t.model2 = xtable(model2,label = NULL)
t.model3 = xtable(model3,label = NULL)

library(apsrtable)

apsrtable(t.model2, t.model3, Sweave = TRUE, stars = "default")
```

尝试2当我使用上面的代码时outside代码块，.Rmd 文件输出为 PDF，但显示以下内容：

问题

我的问题

• 为什么这些尝试都失败了？
• 正确的使用方法是什么apsrtable.Rmd 中的函数？
• 此方法可以将此 .Rmd 文件输出为 PDF 吗？

相关堆栈溢出问题

• 在 R 中制作乳胶表的工具

• 在 Rmd 文件中包含 apsrtable（或 stargazer）输出

• 将多个回归表合并为一个，以便在 xtable 中与 R 中的 Sweave 一起使用

您需要注意以下两件事：

• 块选项results='asis'
• \usepackage{dcolumn}必须位于帮助文件中所述的序言中。

另一种选择是观星者包，它不仅可以编织为 PDF，还可以编织为 HTML（参见屏幕截图）。

---
title: "stargazer"
author: "hplieninger"
date: "3 August 2018"
output: pdf_document
header-includes:
    - \usepackage{dcolumn}
---

```{r}
m1 <- lm(Fertility ~ Education , data = swiss)
m2 <- lm(Fertility ~ Education + Agriculture, data = swiss)
m3 <- lm(Fertility ~ . , data = swiss)
```

```{r, results='asis'}
apsrtable::apsrtable(m1, m2, m3, Sweave = TRUE)
```

```{r, results='asis'}
# If output: pdf_document
stargazer::stargazer(m1, m2, m3)
# If output: html_document
# stargazer::stargazer(m1, m2, m3, type = "html")
```