Regression tables in Markdown format (for flexible use in R Markdown v2)

Question

The new version of R Markdown is based on pandoc, so you can easyly change the output format.

My Problem is to get markdown formated tables from e.g. regression mode

Answer 1

My above comment in more details:

1. Define a few models for reproducible example:

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

2. Create a comparative table from those:

   require(memisc)
   mtable123 <- mtable('Model 1' = lm0,
               'Model 2' = lm1,
               'Model 3' = lm2,
               summary.stats = c('R-squared','F','p','N'))
   

3. Render markdown table with a simple call to pander:

   pander(mtable123)
   

4. Enjoy the result:

   --------------------------------------------------
                 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    
   --------------------------------------------------
   

---

Thanks for Roman Tsegelskyi for implementing this nice feature in GSoC 2014.

Answer 2

The huxtable package can now print nicely formatted regression table. See the documentaton https://hughjonesd.github.io/huxtable/huxreg.html

Answer 3

Just generate the HTML or LATEX tables. All you have to do is to just add results='asis' to the code chunk. It will leave the output as it is.

For example this code using xtable works for me.

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

Answer 4

Another way to use sjPlot (great library for easy presentation of regression output) is to use the no.output feature:

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

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

Answer 5

Here what I did some hours ago:

1. Some data:

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

2. We use the package sjPlot

   ```{r}
   library(sjPlot)
   tab_model(lm1,lm2, file="output.html")# You have to save the table in html format.
   ```
   

   The next part needs to be outside the chunk in markdown:

htmltools::includeHTML("output.html")

Answer 6

I'm updating this with an example that uses the popular (and newer) knitr and kableExtra packages.

library(knitr)
library(xtable)

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

Now you can access all the cool table-formatting features available in Hao Zhu's kableExtra package.