从 R 的 xtable 修剪 LaTeX 表中的额外水平规则

Question

问：如何从 R 的 xtable 中 trim LaTeX 表格中的额外水平线长度？

我想做一些您在下面的 R 代码中看到的事情。但是该代码抛出错误，没有产生预期的结果。

% table 1
    \begin{table}[ht]
      \centering
      \begin{tabular}{@{}lrr@{}}
        \toprule  
        & a\_a & b\_b \ 
        \midrule 
        A & 0.35 & -1.05 \ 
        B & 0.64 & 0.92 \ 
        \bottomrule 
      \end{tabular}
    \end{table}

% table 2 
    \begin{table}[ht]
      \centering
      \begin{tabular}{lrr}
        \toprule  
        & a\_a & b\_b \ 
        \midrule 
        A & 0.36 & -1.05 \ 
        B & 0.64 & 0.92 \ 
        \bottomrule 
      \end{tabular}
    \end{table}

# Begin R code
library(xtable)
library(stringr)
options(xtable.comment = FALSE)
set.seed(10)
mat <- matrix(rnorm(4), nrow=2)
rownames(mat) <- LETTERS[1:2]
colnames(mat) <- str_c(letters[1:2], "_", letters[1:2])
#mat.x <- xtable(mat, caption="My Caption!", align="lrr", digits=2) # No Error!
mat.x <- xtable(mat, align="@{}lrr@{}", digits=2) # Error!
print(mat.x, 
      sanitize.text.function = function(x){x},
      sanitize.colnames.function = function(x){str_replace_all(x, "_", "\\_")},
      floating=T,
      hline.after=NULL,
      math.style.negative=F,
      add.to.row=list(pos=list(-1,0,nrow(mat.x)),
                      command=c("\toprule ", "\midrule ", "\bottomrule ")))

# Error in `align<-.xtable`(`*tmp*`, value = "@{}lrr@{}") : 
#  "align" must have length equal to 3 ( ncol(x) + 1 )
# In addition: Warning message:
#  In .alignStringToVector(value) : Nonstandard alignments in align string

Answer 1

您需要传递一个字符数等于列数 + 1 的字符串，或者这个长度的字符串。所以尝试（在其他排列中）

align=c("@{}l", "r", "r@{}")

要了解原因，请查看函数。

library(xtable)

set.seed(10)
mat <- matrix(rnorm(4), nrow=2)
rownames(mat) <- LETTERS[1:2]
colnames(mat) <- paste0(letters[1:2], "_", letters[1:2])
xtable(mat, align="@{}lrr@{}", digits=2)

"align" must have length equal to 3 ( ncol(x) + 1 )

警告建议传递一个长度为三的向量，所以尝试

xtable(mat, align=c("@{}l","r", "r@{}"), digits=2)
# \begin{table}[ht]
# \centering
# \begin{tabular}{@{}lrr@{}}
# ---
# ---

这样就按预期工作了。 align 参数对于传递字符串的方式也很稳健，只要是要求的长度即可。

xtable(mat, align=c("@{}lrr@", "{", "}"), digits=2)
# \begin{table}[ht]
# \centering
# \begin{tabular}{@{}lrr@{}}
# ---
# ---

看看为什么第一个字符串不起作用查看 xtable:::xtable.data.frame 函数的相关部分：必须与 align

有关

align(x) <- switch(1 + is.null(align), align, c("r", c("r", "l")[(characters | factors) + 1]))

这导致 xtable:::`align<-.xtable，然后 xtable:::.alignStringToVector

从 R 的 xtable 修剪 LaTeX 表中的额外水平规则

Trimming extra horizontal rule in LaTeX tables from R's xtable

r

latex

xtable