r - 在 R Markdown 中合并表格

Question

我正在尝试将 R 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

请允许我正式回答，因为我的评论似乎对您有用。

pander(rbind(t1,names(t2),t2))

Answer 2

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)))
```

这是输出：