我尝试lm使用如下代码在 Rmd 文件中包含对象的摘要，但它不起作用。你能帮我做吗？
```{r summary_lm, results='asis', echo=FALSE, comment=NA}
library(apsrtable)
my_model <- lm(y ~ x, data = data.frame(y = rnorm(10), x = 1:10))
res <- apsrtable(my_model) # my_model is a linear regression model (lm)
cat("$$latex \n",res,"\n$$ \n")
```
该$$语法仅适用于数学表达式，并且您试图在其中放置一个表，但这是行不通的。，apsrtable据我所知，仅适用于 LaTeX，但 LaTeX 和 Markdown 非常不同——几乎没有希望你可以完全用 Markdown 重做 LaTeX。我认为人们发明了$$Markdown 的语法是因为它得到了 MathJax 的良好支持，并且还注意到有许多基于原始 Markdown 的变体/风格。
目前您可以考虑：
xtableor asciiorR2HTML包生成 HTML 表格apsrtable支持 HTML 表格用`pander˙包含my_model在 Markdown 格式中怎么样：
> library(pander)
> pander(my_model)
--------------------------------------------------------------
Estimate Std. Error t value Pr(>|t|)
----------------- ---------- ------------ --------- ----------
**x** 0.1174 0.1573 0.7465 0.4767
**(Intercept)** -0.2889 0.9759 -0.296 0.7748
--------------------------------------------------------------
Table: Fitting linear model: y ~ x
或 PHP MarkdownExtra/rmarkdown 格式：
> panderOptions('table.style', 'rmarkdown')
> pander(my_model)
| | Estimate | Std. Error | t value | Pr(>|t|) |
|:-----------------:|:----------:|:------------:|:---------:|:----------:|
| **x** | 0.1174 | 0.1573 | 0.7465 | 0.4767 |
| **(Intercept)** | -0.2889 | 0.9759 | -0.296 | 0.7748 |
Table: Fitting linear model: y ~ x
在 Rmarkdown 中使用 apsrtable交叉发布我对多个 lm() 模型表的答案：
它可以在pdf_documentapsrtable 和 stargazer 中完成，它还支持 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")
```