R Stargazer 用垂直线分隔列

Question

我想在 stargazer 回归中分开两列 table。到目前为止，我还没有找到 suitable 解决方案。所以我在这里写下我的问题。

下面是创建 2 列观星器 table 的示例代码：

mod <- lm(data=iris,Sepal.Length~Species)
mod1 <- lm(data=iris,Sepal.Length~Petal.Width+Species)

stargazer(mod,mod1, type = "latex")

RMarkdown 给我这个输出：

但我想用一行分隔两列：

谁能帮我解决这个问题？

我假设您必须使用乳胶代码来更改输出。我没有在 Stargazer 选项中找到任何可能性。

提前致谢！

Answer 1

一个命题：

mod <- lm(data=iris,Sepal.Length~Species)
mod1 <- lm(data=iris,Sepal.Length~Petal.Width+Species)
mod1_sg <- capture.output(stargazer::stargazer(mod, mod1, type = "text"))
library(stringr)
mod1_sg[6:25] <- paste(str_sub(mod1_sg[6:25],1,44), str_sub(mod1_sg[6:25],46,68), sep="|")
mod1_df <- setNames(as.data.frame(noquote(mod1_sg)[-1]),"")
print(mod1_df, row.names=FALSE)
#>                                                                      
#>  ====================================================================
#>                                    Dependent variable:               
#>                      ------------------------------------------------
#>                                        Sepal.Length                  
#>                                (1)           |          (2)          
#>  --------------------------------------------|-----------------------
#>  Petal.Width                                 |       0.917***        
#>                                              |        (0.194)        
#>                                              |                       
#>  Speciesversicolor           0.930***        |        -0.060         
#>                              (0.103)         |        (0.230)        
#>                                              |                       
#>  Speciesvirginica            1.582***        |        -0.050         
#>                              (0.103)         |        (0.358)        
#>                                              |                       
#>  Constant                    5.006***        |       4.780***        
#>                              (0.073)         |        (0.083)        
#>                                              |                       
#>  --------------------------------------------|-----------------------
#>  Observations                  150           |          150          
#>  R2                           0.619          |         0.669         
#>  Adjusted R2                  0.614          |         0.663         
#>  Residual Std. Error     0.515 (df = 147)    |   0.481 (df = 146)    
#>  F Statistic         119.265*** (df = 2; 147)|98.525*** (df = 3; 146)
#>  ====================================================================
#>  Note:                                    *p<0.1; **p<0.05; ***p<0.01

# Created on 2021-02-15 by the reprex package (v0.3.0.9001)

更新

对于 LaTeX 输出：

mod <- lm(data=iris,Sepal.Length~Species)
mod1 <- lm(data=iris,Sepal.Length~Petal.Width+Species)
mod1_sg <- capture.output(stargazer::stargazer(mod, mod1, type = "latex"))
mod1_sg <- sub("lcc", "lc|c", mod1_sg)
writeLines(mod1_sg)

此致，

R Stargazer 用垂直线分隔列

R Stargazer separate columns with vertical line

r

r-markdown

stargazer