将两个相邻的data.frames与knitr对齐？

Question

我是 knitr 的新手（对 R 也很陌生），所以这可能是一个愚蠢的问题......

我有两个 data.frames，它们都有两列，但行数不同。我想在我的 knitr 报告中展示它们，但是当它们可以很容易地坐在一起时，将一张窄桌放在另一张窄桌下方看起来并不好。 有什么办法可以将它们并排显示？

更新

好的，根据下面的建议，这就是我所做的（我现在将三个表放在一起）：

```{r fig.height=13.5, fig.width=10, echo=FALSE, comment=""}
grid.arrange(textGrob("Visual Clusters", gp=gpar(fontsize=14, fontface="bold")),
             textGrob("We have biofilm data for...", gp=gpar(fontsize=14, fontface="bold")),
             textGrob("Left Over Isolates", gp=gpar(fontsize=14, fontface="bold")),
             tableGrob(clusters, show.rownames=FALSE, gp=gpar(fontsize=10)),
             tableGrob(clust_ab, show.rownames=FALSE, gp=gpar(fontsize=10)),
             tableGrob(n_clust, show.rownames=FALSE, gp=gpar(fontsize=10)),
             ncol=3, nrow=2, heights=c(1,30))
```

这看起来已经很不错了，三个表格的标题和没有编号的行。
到目前为止我无法解决的唯一问题是表格都是水平居中的，所以如果你明白我的意思，较短的表格从最长的表格下方开始。

Answer 1

knitr 的开发版本（on Github；按照那里的安装说明）有一个kable() 函数，可以将表格作为字符向量返回。您可以收集两个表格并将它们排列在父表格的两个单元格中。这是一个简单的例子：

```{r two-tables, results='asis'}
library(knitr)
t1 = kable(mtcars, format='html', output = FALSE)
t2 = kable(iris, format='html', output = FALSE)
cat(c('<table><tr valign="top"><td>', t1, '</td><td>', t2, '</td><tr></table>'),
    sep = '')
```

您还可以使用 style="float: [left|right]" 等 CSS 技巧将表格向左/向右浮动。

如果要设置单元格内边距和间距，可以照常使用表格属性cellpadding/cellspacing，例如

```{r two-tables, results='asis'}
library(knitr)
t1 = kable(mtcars, format='html', table.attr='cellpadding="3"', output = FALSE)
t2 = kable(iris, format='html', table.attr='cellpadding="3"', output = FALSE)
cat(c('<table><tr valign="top"><td>', t1, '</td>', '<td>', t2, '</td></tr></table>'),
    sep = '')
```

请参阅RPubs post 了解上述代码。

Answer 2

您会满足于 data.frames 的“图像”吗？显然我的解决方案很粗糙，请随意摆弄细节（例如 data.frames 之间的间距）。

Two data.frames, side by side
========================================================

```{r}
library(gridExtra)
x <- data.frame(a = runif(5), b = runif(5))
y <- data.frame(a = runif(7), b = runif(7))

grid.arrange(tableGrob(x), tableGrob(y), ncol = 2)
```