如何从观星台中排除标准错误？

Question

惊人的R大师，

我只是想知道是否有任何方法可以从观星台中排除标准错误。

这是一个可快速复制的示例：

---
title: "Test regression"
output: html_document
date: "`r format(Sys.time(), '%d %B, %Y')`"
---

```{r setup, echo=FALSE, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
knitr::opts_chunk$set(warning = FALSE)
knitr::opts_chunk$set(cashe = TRUE)

rm(list=ls())
library(stargazer)
library(ggplot2)

```


```{r, results='asis', echo=FALSE}

fit <- lm(price ~ carat + table + x + y + z, data = diamonds)

stargazer(fit, title="Diamonds Regression",
          single.row = TRUE, type ="html", header = FALSE, df=FALSE, digits=2, se = NULL)

```

我希望看到没有标准错误的结果，如下面的屏幕提示所示。

非常感谢您的时间和帮助。

Answer 1

这是一种简单的方法：

```{r, results='asis', echo=FALSE}
fit <- lm(price ~ carat + table + x + y + z, data = diamonds)
mytab <- capture.output(stargazer(fit, title="Diamonds Regression",
                        single.row = TRUE, type ="html", header = FALSE, df=FALSE,
                        digits=2, 
                        apply.se = function(x) { 0 }))

cat(paste(gsub("\\(0.00\\)", "", mytab), collapse = "\n"), "\n")
```

我们首先捕获stargazer的输出并取消自动打印。在观星者中，我们将所有标准错误设置为0（使以下替换操作更加失败）。最后，我们打印输出并替换这些标准错误。

Answer 2

我只是想实现相同的目的，并且在stargazer documentation中找到了report参数，该参数可用于控制输出表中显示的元素（和顺序）。 如果这样使用：

fit <- lm(price ~ carat + table + x + y + z, data = diamonds)

stargazer(fit, title="Diamonds Regression",
          single.row = TRUE, 
          type ="html", 
          report = "vc*", 
          header = FALSE, 
          df=FALSE, 
          digits=2, 
          se = NULL
)

它可以产生所需的输出，而无需先捕获输出（或任何其他附加代码）。