如何使用观星机以科学计数法显示系数

Question

我想使用注视仪或类似工具在R的表中比较不同模型（lm，glm，plm，pglm）的结果。但是我找不到一种以科学计数法显示系数的方法。这是一个问题，因为截距相当大（大约一百万），而其他系数很小（大约e-7），这会导致大量无用的零，从而使表的读取变得更加困难。

我在这里发现了一个类似的问题：在texreg或stargazer R中将格式模型显示为科学。但是那里的结果需要重新缩放变量，并且由于我使用计数数据，所以我不想重新缩放它。

我很感谢任何建议。

Answer 1

这是一个可重现的示例：

m1 <- lm(Sepal.Length ~ Petal.Length*Sepal.Width,
         transform(iris, Sepal.Length = Sepal.Length+1e6,
                   Petal.Length=Petal.Length*10, Sepal.Width=Sepal.Width*100))
# Coefficients:
#              (Intercept)              Petal.Length               Sepal.Width  Petal.Length:Sepal.Width  
#                1.000e+06                 7.185e-02                 8.500e-03                -7.701e-05  

我认为对此没有stargazer轻松的支持。你可以尝试其他类似的替代品xtable或任何许多选择在这里（我还没有尝试过所有）

library(xtable)
xtable(m1, display=rep('g', 5)) # or there's `digits` too; see `?xtable`

或者，如果您正在使用knitr或pandoc我很喜欢pander，它已经具有自动的科学符号（请注意：这是pandoc输出，看起来像markdown，而不是tex输出，然后将其编织或pandoc转换为Latex / pdf）：

library(pander)
pander(m1)