r - 在 R Markdown 中合并表格

Question

我正在尝试将 R Markdown 中的两个表格组合成一个表格，一个在另一个下面并保留标题。下图显示了所需的输出。放置 Markdown 代码后，我将显示实际输出。我意识到我构建 pander 语句的方式不允许我得到我想要的输出但是搜索所以我没有找到正确的方法。

我可以在 Word 中进行一些后期处理以获得我想要的输出，但我正在努力避免这种开销。

testdat.RData 文件在这里:https://drive.google.com/file/d/0B0hTmthiX5dpWDd5UTdlbWhocVE/view?usp=sharing

R Markdown RMD 文件在这里:https://drive.google.com/file/d/0B0hTmthiX5dpSEFIcGRNQ1MzM1E/view?usp=sharing

期望的输出

```{r,echo=FALSE,message = FALSE, tidy=TRUE}
library(pander)
load("testdat.RData")
pander::pander(t1,big.mark=',', justify=c('left','right','right','right'))
pander::pander(t2,big.mark=',', justify=c('left','right','right','right'))
```

实际输出

谢谢，

克里希南

Answer 1

这是我使用 xtable 包的尝试:

```{r,echo=FALSE, message = FALSE, results="asis"}
library(xtable)

# Add thousands separator
t1[-1] = sapply(t1[-1], formatC, big.mark=",")
t2[-1] = sapply(t2[-1], formatC, big.mark=",")

t1$Mode = as.character(t1$Mode)

# Bind together t1, extra row of column names, and t2
t1t2 = rbind(t1, names(t1), t2)

# Render the table using xtable
print(xtable(t1t2, align="rrrrr"), # Right-align all columns (includes extra value for row names)
      include.rownames=FALSE, # Don't print rownames
      hline.after=NULL, 
      # Add midrules before/after each set column names
      add.to.row = list(pos = list(-1,0,4,5),
                        command = rep("\\midrule \n",4)))
```

这是输出: