r - 如何在R中矩阵特定行的元素上放置方括号

Question

我想使用 xtable 将我的输出从 R 导出到 latex 。此外，我希望每个表都有一个估计值及其标准误差。如何在 R 的方括号中获取矩阵特定行的元素？

将函数 xtable 应用于结果数据框的预期输出应如下所示:

 \begin{tabular}{lcccc}
 \hline
 & Hi & MV & Zi & Pi \\ 
 \hline
 Mean & 0.57 & 0.50 & 0.54 & 0.42  \\ 
 & [0.01] & [0.01] & [0.01] & [0.05]  \\ 
 Median & 0.57 & 0.50 & 0.54 & 0.42  \\ 
 & [0.01] & [0.01] & [0.01] & [0.05]  \\ 
 MSE & 0.08 & 0.02 & 0.05 & 0.16  \\ 
 & [0.01] & [0.00] & [0.01] &[ 0.04]  \\ 
\hline
\end{tabular}

谢谢。

Answer 1

你可以试试这个，

x<-matrix(1:12,nrow=4)

bracket <- function(x, i, j){
  x[i,j] <- sprintf("[%s]", x[i,j])
  x
}

# x <- bracket(x, 2, 3) # test

# every second row
ind = which(row(x) %% 2 == 1, arr.ind = TRUE)
x <- bracket(x, ind[,1], ind[,2])

print(xtable(x), sanitize.text.function = I)

注意:我可能会定义一个 LaTeX 宏，例如\newcommand{\wrap}[1]{\ensuremath{\left[#1\right]}} , 与 x[i,j] <- sprintf("\\wrap{%s}", x[i,j])在 R 代码中。