使用 R 在 LaTeX 中生成表格stargazer效果很好。但我不知道如何将我的数字格式化为整数（这篇文章是相关的，但不同）。
由于数据规模，我希望系数和标准误差不显示小数。因此，我使用该选项digits=0。但是，此选项也会从模型拟合统计数据中删除小数（例如，R2 = 0而不是R2 = 0.42）。如何为表格的“顶部”和“底部”部分设置不同的舍入规则？
问问题
840 次
1 回答
2
使用正则表达式，我们可以将 LaTeX 输出中的特定数字替换为s四舍五入的值。
由于目前该texreg软件包似乎比 更好地维护，因此stargazer我将两者都包含在答案中。
虽然很难泛化一个解决方案，因为回归结果可能总是不同的，这里有一个想法。
(fit <- lm(mpg ~ hp + cyl, mtcars))
# Call:
# lm(formula = mpg ~ hp + cyl, data = mtcars)
#
# Coefficients:
# (Intercept) hp cyl
# 36.90833 -0.01912 -2.26469
s <- stargazer::stargazer(fit, header=FALSE, digit.separator="")
texreg用户会这样做：
tmp <- tempfile()
texreg::texreg(fit, file=tmp)
s <- readLines(tmp)
为此，首先，我们希望子集s化不包括 GOF。此外，我们不想替换括号内的 LaTeX 格式命令。
s.sub1 <- 1:(grep("Observations", s) - 1) ## stargazer
s.sub1 <- 1:(grep("R$^2$", s, fixed=TRUE) - 1) ## texreg
re <- regexpr("(\\d+\\.\\d+)(?![^[]*\\])", s[s.sub1], perl=TRUE)
toInt <- regmatches(s[s.sub1], re)
v.repl <- round(as.double(toInt), digits=0)
s.sub2 <- which(attr(re, "match.length")[s.sub1] > 1)
在我们获得替换后，v.repl我们mapply在第二步中使用四舍五入的值替换小数。
s[s.sub2] <- mapply(function(x, y) gsub("(\\d+\\.\\d+)(?![^[]*\\])", x, y, perl=TRUE),
v.repl, s[s.sub2])
结果
stargazer
# \begin{table}[!htbp] \centering
# \caption{}
# \label{}
# \begin{tabular}{@{\extracolsep{5pt}}lc}
# \\[-1.8ex]\hline
# \hline \\[-1.8ex]
# & \multicolumn{1}{c}{\textit{Dependent variable:}} \\
# \cline{2-2}
# \\[-1.8ex] & mpg \\
# \hline \\[-1.8ex]
# hp & $-$0 \\
# & (0) \\
# & \\
# cyl & $-$2$^{***}$ \\
# & (1) \\
# & \\
# Constant & 37$^{***}$ \\
# & (2) \\
# & \\
# \hline \\[-1.8ex]
# Observations & 32 \\
# R$^{2}$ & 0.741 \\
# Adjusted R$^{2}$ & 0.723 \\
# Residual Std. Error & 3.173 (df = 29) \\
# F Statistic & 41.422$^{***}$ (df = 2; 29) \\
# \hline
# \hline \\[-1.8ex]
# \textit{Note:} & \multicolumn{1}{r}{$^{*}$p$<$0.1; $^{**}$p$<$0.05; $^{***}$p$<$0.01} \\
# \end{tabular}
# \end{table}
texreg
# \begin{table}
# \begin{center}
# \begin{tabular}{l c}
# \hline
# & Model 1 \\
# \hline
# (Intercept) & $37^{***}$ \\
# & $(2)$ \\
# hp & $-0$ \\
# & $(0)$ \\
# cyl & $-2^{***}$ \\
# & $(1)$ \\
# \hline
# R$^2$ & $0.74$ \\
# Adj. R$^2$ & $0.72$ \\
# Num. obs. & $32$ \\
# \hline
# \multicolumn{2}{l}{\scriptsize{$^{***}p<0.001$; $^{**}p<0.01$; $^{*}p<0.05$}}
# \end{tabular}
# \caption{Statistical models}
# \label{table:coefficients}
# \end{center}
# \end{table}
注意：要使系数对齐，您可能需要查看siunitxLaTeX 的包。这里是tex.stackexchange的入门者。在此处阅读如何在 Rmarkdown 中包含 LaTeX 包。
于 2020-06-11T07:37:48.923 回答