R 使用xtable函数更改从lm回归中获得的表的行名称
我得到了一个包含两个变量的回归汇总表。 我使用的代码是R 使用xtable函数更改从lm回归中获得的表的行名称,r,lm,xtable,rowname,R,Lm,Xtable,Rowname,我得到了一个包含两个变量的回归汇总表。 我使用的代码是 stock = dyn$lm(y1 ~ x1 +lag(x2, -1) + x2 + x3 +x4) print(xtable(stock)) 这给了我如下的输出 % latex table generated in R 3.0.1 by xtable 1.7-1 package % Mon Aug 12 21:01:51 2013 \begin{table}[ht] \centering
stock = dyn$lm(y1 ~ x1 +lag(x2, -1) + x2 + x3 +x4)
print(xtable(stock))
这给了我如下的输出
% latex table generated in R 3.0.1 by xtable 1.7-1 package
% Mon Aug 12 21:01:51 2013
\begin{table}[ht]
\centering
\begin{tabular}{rrrrr}
\hline
& Estimate & Std. Error & t value & Pr($>$$|$t$|$) \\
\hline
(Intercept) & 0.0031 & 0.0036 & 0.85 & 0.3951 \\
x1 & 0.4947 & 0.0371 & 13.33 & 0.0000 \\
lag(x2, -1) & 0.3745 & 0.0347 & 10.79 & 0.0000 \\
x2 & -0.1248 & 0.0368 & -3.39 & 0.0007 \\
x3 & 0.7368 & 0.0424 & 17.36 & 0.0000 \\
x4 & -0.0033 & 0.0039 & -0.84 & 0.3983 \\
\hline
\end{tabular}
\end{table}
我只能手动将行名(x1,lag(x2,-1)等)更改为希腊语,以符合我研究中的回归。
然而,我需要用许多不同的数据组来复制回归,这使得逐个进行回归太耗时了
是否有更自动化/更强大的解决方案可以使用代码自定义行名称?我认为您要做的是将摘要转换为矩阵,然后使用此处的指南: 以编程方式将行和列名添加到矩阵 我现在只是自己想出来,但沿着这些思路应该可以做到:
stock = dyn$lm(y1 ~ x1 + lag(x2, -1) + x2 + x3 +x4)
stock_matrix <- matrix(summary(stock)$coef, ncol = 4L)
rownames(stock_matrix) <- c("Intercept", "$x_{1,t}$", "$x_{2,t-1}$", "$x_2$", "$x_3$", "$x_4$")
print(xtable(stock_matrix), sanitize.text.function = identity)
stock=dyn$lm(y1~x1+滞后(x2,-1)+x2+x3+x4)
库存矩阵