Home / Questions / 269213
Accepted
kev
Asked: 2020-06-04 09:49:10 +0800 CST 2020-06-04 09:49:10 +0800 CST

regression results in stargazer in r

  • 772

After doing a linear regression, I would like the result to print in a table with the stargazer library with type="html", but the console prints a set of html codes instead of the table. This is some of what I did:

cpbi_ts= ts(cpbi,
            start = 1988,
            end = 2018      )

tc_ts=ts(VITRM,
         start = 1988,
         end = 2018       )

data_1= ts.union(cpbi_ts,tc_ts)

m1=lm(cpbi_ts~tc_ts,
         start = 1998,
         end = 2018)

stargazer(m1,type="html",align = FALSE, no.space=FALSE)

when the last line of code is executed, the result should be a table but the console prints:

<table style="text-align:center"><tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"></td><td><em>Dependent variable:</em></td></tr>
<tr><td></td><td colspan="1" style="border-bottom: 1px solid black"></td></tr>
<tr><td style="text-align:left"></td><td>cpbi_ts</td></tr>
<tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">tc_ts</td><td>-0.094<sup>**</sup></td></tr>
<tr><td style="text-align:left"></td><td>(0.035)</td></tr>
<tr><td style="text-align:left"></td><td></td></tr>
<tr><td style="text-align:left">Constant</td><td>0.024<sup>**</sup></td></tr>
<tr><td style="text-align:left"></td><td>(0.011)</td></tr>
<tr><td style="text-align:left"></td><td></td></tr>
<tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left">Observations</td><td>21</td></tr>
<tr><td style="text-align:left">R<sup>2</sup></td><td>0.280</td></tr>
<tr><td style="text-align:left">Adjusted R<sup>2</sup></td><td>0.240</td></tr>
<tr><td style="text-align:left">Residual Std. Error</td><td>0.051 (df = 19)</td></tr>
<tr><td style="text-align:left">F Statistic</td><td>7.400<sup>**</sup> (df = 1; 19)</td></tr>
<tr><td colspan="2" style="border-bottom: 1px solid black"></td></tr><tr><td style="text-align:left"><em>Note:</em></td><td style="text-align:right"><sup>*</sup>p<0.1; <sup>**</sup>p<0.05; <sup>***</sup>p<0.01</td></tr>
</table>
r

2 Answers

  1. Best Answer

    It seems you need to add the argument outto the functionstargazer

    x<-1:30
y<-2+3*x+rnorm(30)

m1<-lm(y~x)
class(m1)
library(stargazer)
stargazer(m1,type="html",align = FALSE, no.space=FALSE, out="m1.html")

    Then you can open the file from your working directory and you will be able to see the table, in my case this is what I get:

    enter image description here

    • 1

  2. stargazeris a package intended to integrate with Rmarkdown, that is, write R code with Markdown code, for example, something like this in a document frame Rmd:

    ## `stargazer` con Rmarkdown

```{r message=FALSE, warning=FALSE, results='asis'}
library(stargazer)
# Ejemplo de la ayuda de Lm()
ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
group <- gl(2, 10, 20, labels = c("Ctl","Trt"))
weight <- c(ctl, trt)
m1 <- lm(weight ~ group)
stargazer(m1, header=FALSE, type='html')
```

    Pressing the button knitrwould output something like this:

    enter image description here

    This can be viewed directly in Rstudio 's "Viewer" panel or in a separate window (as well as being exportable to Word or PDF). Note: In order to reproduce the example, the code would have to be pasted into a new RMarkdown document.

    Now, if what you are looking for is to use stargazer()within a common R script, the only thing you will see is the code necessary to "draw" the table (eventually, text, html or latex). You can, yes, use the output option type="text", to output something like this:

    stargazer(m1,type="text",align = FALSE, no.space=FALSE)

    The console output would be something like this:

    ===============================================
                        Dependent variable:    
                    ---------------------------
                              weight           
-----------------------------------------------
groupTrt                      -0.371           
                              (0.311)          

Constant                     5.032***          
                              (0.220)          

-----------------------------------------------
Observations                    20             
R2                             0.073           
Adjusted R2                    0.022           
Residual Std. Error       0.696 (df = 18)      
F Statistic             1.419 (df = 1; 18)     
===============================================
Note:               *p<0.1; **p<0.05; ***p<0.01

    Another way, for which you already have an answer, would be to save the output as a htmlcomplete and view it with the browser. Otherwise, there is a practical way to automate this. Here the answer , the only thing I did was to modify the name of the function:

    print.htmlcode<- function(x, useViewer = TRUE, ...){
    # Don't use viewer if in knitr
    if (useViewer &&
        !"package:knitr" %in% search()){
        htmlFile <- tempfile(fileext=".html")
        htmlPage <- paste("<html>",
                          "<head>",
                          "<meta http-equiv=\"Content-type\" content=\"text/html;charset=UTF-8\">",
                          "</head>",
                          "<body>",
                          "<div style=\"margin: 0 auto; display: table; margin-top: 1em;\">",
                          x,
                          "</div>",
                          "</body>",
                          "</html>", sep="\n")
        cat(htmlPage, file=htmlFile)

        viewer <- getOption("viewer")
        if (!is.null(viewer) &&
            is.function(viewer)){
            # (code to write some content to the file)
            viewer(htmlFile)
        }else{
            utils::browseURL(htmlFile)
        }
    }else{
        cat(x)
    }
}

    So you can do:

    print_htmlcode(stargazer(m1,type="html",align = FALSE, no.space=FALSE))
    • 1