在 R 中组合多个 xtables

combine multiple xtables in R

我想合并 2 个数据集,当我 运行 在 R 中编写下面的代码时,但是没有显示 headers,我想查看 header 列对于每个数据集

 iriss <- head(iris)
    iriss1 <- tail(iris)
   print(xtable(rbind(iriss,iriss1)))

预期的输出是这样的,我怎样才能从 R 控制台得到这个?

\begin{table}[ht]
    \centering
    \begin{tabular}{rrrrrl}
        \hline
        & Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species \ 
        \hline
        1 & 5.10 & 3.50 & 1.40 & 0.20 & setosa \ 
        2 & 4.90 & 3.00 & 1.40 & 0.20 & setosa \ 
        3 & 4.70 & 3.20 & 1.30 & 0.20 & setosa \ 
        4 & 4.60 & 3.10 & 1.50 & 0.20 & setosa \ 
        5 & 5.00 & 3.60 & 1.40 & 0.20 & setosa \ 
        6 & 5.40 & 3.90 & 1.70 & 0.40 & setosa \ 
        \hline
        & Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species \ 
        \hline
        145 & 6.70 & 3.30 & 5.70 & 2.50 & virginica \ 
        146 & 6.70 & 3.00 & 5.20 & 2.30 & virginica \ 
        147 & 6.30 & 2.50 & 5.00 & 1.90 & virginica \ 
        148 & 6.50 & 3.00 & 5.20 & 2.00 & virginica \ 
        149 & 6.20 & 3.40 & 5.40 & 2.30 & virginica \ 
        150 & 5.90 & 3.00 & 5.10 & 1.80 & virginica \ 
        \hline
    \end{tabular}
\end{table}

非常感谢

一个xtable本质上是一个带有打印方法的数据框,它显示了用于在乳胶文档中复制table的乳胶代码。因此,无法创建按您希望的方式打印的 xtable 对象。

但是, 可以通过捕获控制台输出并对其进行操作以将多个 table 连接在一起,从而将所需的输出发送到控制台。这是一个可以做到这一点的函数:

multi_xtable <- function(...)
{
  vars <- as.list(match.call(expand.dots = TRUE))[-1]
  df_list <- lapply(vars, eval)
  num_cols <- sapply(df_list, length)
  if (!all(num_cols == num_cols[1]))
    stop("All data frames must have equal number of columns")  
  xtables <- lapply(df_list, function(x) capture.output(xtable::xtable(x)))
  if (length(xtables) == 1) 
    return(xtables[[1]])  
  header <- xtables[[1]][1:6]
  tail <- xtables[[1]][length(xtables[[1]]) + (-1:0)]
  xtables <- lapply(xtables, function(x) x[7:(length(x) - 2)])
  xtables <- do.call("c", xtables)  
  cat(header, xtables, tail, sep = "\n")
}

你可以这样使用它:

multi_xtable(iriss, iriss1)
#> % latex table generated in R 3.6.2 by xtable 1.8-4 package
#> % Wed Apr 29 12:51:24 2020
#> \begin{table}[ht]
#> \centering
#> \begin{tabular}{rrrrrl}
#>   \hline
#>  & Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species \ 
#>   \hline
#> 1 & 5.10 & 3.50 & 1.40 & 0.20 & setosa \ 
#>   2 & 4.90 & 3.00 & 1.40 & 0.20 & setosa \ 
#>   3 & 4.70 & 3.20 & 1.30 & 0.20 & setosa \ 
#>   4 & 4.60 & 3.10 & 1.50 & 0.20 & setosa \ 
#>   5 & 5.00 & 3.60 & 1.40 & 0.20 & setosa \ 
#>   6 & 5.40 & 3.90 & 1.70 & 0.40 & setosa \ 
#>    \hline
#>  & Sepal.Length & Sepal.Width & Petal.Length & Petal.Width & Species \ 
#>   \hline
#> 145 & 6.70 & 3.30 & 5.70 & 2.50 & virginica \ 
#>   146 & 6.70 & 3.00 & 5.20 & 2.30 & virginica \ 
#>   147 & 6.30 & 2.50 & 5.00 & 1.90 & virginica \ 
#>   148 & 6.50 & 3.00 & 5.20 & 2.00 & virginica \ 
#>   149 & 6.20 & 3.40 & 5.40 & 2.30 & virginica \ 
#>   150 & 5.90 & 3.00 & 5.10 & 1.80 & virginica \ 
#>    \hline
#> \end{tabular}
#> \end{table}