r - 让观星者打印多项逻辑回归中的观察次数

Question

有没有办法在 stargazer 表中打印多项逻辑回归模型的观测值？此示例代码说明了该问题。谢谢。

var1<-sample(c('A', 'B', 'C'), size=1000, replace=T)
var2<-rnorm(n=1000)
var3<-rnorm(n=1000)
df<-data.frame(var1, var2, var3)
library(nnet)
mod1<-multinom(var1~var2+var3, data=df)
library(stargazer)
stargazer(mod1, nobs=T, type="text")

Answer 1

Stargazer 是非常好的软件包，但有时您必须“手动”进行一些调整。如果你想在你的输出中有一些观察结果，这是如何去做的:

stargazer(mod1, 
          type="text", 
          add.lines = list(c("n", nrow(df), nrow(df))))

如果你想在 latex 中创建一个表，你可以使用:

stargazer(mod1, 
          type="latex", 
          add.lines = list(c("\\textit{$n$}", nrow(df), nrow(df))))

这种方法是这样的，一旦你在 latex 中渲染它，“n”就会是数学字体。

==============================================
                      Dependent variable:     
                  ----------------------------
                        B              C      
                       (1)            (2)     
----------------------------------------------
var2                  0.0002        -0.055    
                     (0.080)        (0.079)   
                                              
var3                  -0.088         0.012    
                     (0.078)        (0.077)   
                                              
Constant              -0.029         0.030    
                     (0.078)        (0.077)   
                                              
----------------------------------------------
n                      1000          1000     
Akaike Inf. Crit.   2,206.078      2,206.078  
==============================================
Note:              *p<0.1; **p<0.05; ***p<0.01

希望这就是您一直要求的。