降价格式的回归表（在R降价v2中灵活使用）

新版本的R Markdown基于pandoc，因此您可以轻松更改输出格式

我的问题是从例如回归模型中获得降价格式的表，因为LATEX和HTML表在pandoc转换中无法生存

我知道从各种模型（stargazer、texreg、AsperTable…）生成LATEX/HTML输出的软件包，我也知道从数据帧和矩阵生成降价表但不从其他对象生成降价表的函数/软件包

---

有什么建议吗？

只需生成HTML或LATEX表即可。您只需将results='asis'添加到代码块中即可。它将使输出保持原样

例如，使用xtable的这段代码对我很有用

```{r,results='asis'}
x<-rnorm(100)
y<-rnorm(100)
lm <- lm(y~x)
library(xtable)
print(xtable(summary(lm)),type='html')
```

`{r，results='asis'}
xMy的更多详细信息：

为可复制示例定义几个模型：

lm0 <- lm(hp ~ wt, mtcars)
lm1 <- lm(qsec ~ hp, mtcars)
lm2 <- lm(qsec ~ wt, mtcars)


享受结果：

--------------------------------------------------
     &nbsp;        Model 1    Model 2    Model 3  
----------------- ---------- ---------- ----------
 **(Intercept)**   -1.821\   20.556***\ 18.875***\
                   (32.325)   (0.542)    (1.103)  

     **wt**       46.160***\     \       -0.319\  
                   (9.625)               (0.328)  

     **hp**           \      -0.018***\     \     
                              (0.003)             

  **R-squared**     0.434      0.502      0.031   

      **F**         22.999     30.190     0.945   

      **p**         0.000      0.000      0.339   

      **N**           32         32         32    
--------------------------------------------------



感谢您在GSoC 2014中实施这一出色功能。
以下是我几小时前所做的：

一些数据：

```{r}
lm1 <- lm(qsec ~ hp, mtcars)
lm2 <- lm(qsec ~ wt, mtcars)
```

下一部分需要在标记中位于块之外：

htmltools:：includeHTML（“output.html”）

另一种使用sjPlot（易于显示回归输出的强大库）的方法是使用no.output功能：

     library(sjmisc)
     library(sjPlot)
     library(magrittr)

     lm(qsec ~ wt, mtcars) %>% 
       sjt.lm(no.output = TRUE, show.se = TRUE) %>% 
       return() %>% .[["knitr"]] %>% asis_output

我正在用一个使用流行（和更新的）knitr和kableExtra包的示例来更新它

library(knitr)
library(xtable)

lm(hp ~ wt, mtcars) %>%
summary() %>%
xtable() %>%
kable()

现在，您可以访问Hao Zhu软件包中提供的所有酷炫的表格格式功能。
huxtable软件包现在可以打印格式良好的回归表格。
请参阅文档
Try
pander
，我正是为了这个目的而开始的：Roman目前正在GSoC 2014中实施一系列新的S3方法，所以已经包括了很多模型——但请随时提出更多的功能要求。谢谢，这满足了我的一些需求！pander中是否有显示一系列回归模型结果的方法？@user3762565是的，请参阅例如@Ignacio I see，谢谢提供详细信息。好吧，这绝对不是一个降价问题，在这篇文章中也不相关，所以如果我是你，我会开始一个新的问题。否则，请搜索以下关键字：使用knitr的自定义CSS。@HernandoCasas请确认您使用的是大部分的
pander
，因为它在CRAN上已经过时了。我将在未来几周内推送更新。@Hernandocas您是从RStudio编织的吗？可能它在没有加载knitr或其他东西的情况下启动了一个普通的R会话。我刚刚推送了一个可能的GH更新，请重新安装
pander
的开发版本，并告诉我它是否有效。@hernandocas是的，这是我昨天所做的：）由于最近在
pander
中出现了一个问题，调用
pander
时，无需再在块选项中指定
results='asis'
。我似乎得到了：“pander中的警告。默认值（m）：当我尝试按照您的建议执行时，“memisc\u mtable”没有pander.method。您能提供一个最简单的工作示例吗，连同关于如何编译它的解释？这对我来说不起作用，请插入一个最小的例子：）修复。很抱歉，不推荐使用'sjt.lm'这个错误。改为使用“tab_模型”。这可以进行模型比较吗？
```{r}
library(sjPlot)
tab_model(lm1,lm2, file="output.html")# You have to save the table in html format.
```

     library(sjmisc)
     library(sjPlot)
     library(magrittr)

     lm(qsec ~ wt, mtcars) %>% 
       sjt.lm(no.output = TRUE, show.se = TRUE) %>% 
       return() %>% .[["knitr"]] %>% asis_output

library(knitr)
library(xtable)

lm(hp ~ wt, mtcars) %>%
summary() %>%
xtable() %>%
kable()