如何将多个 knitr::kable 或 stargazer 表并排放置？答案

【问题标题】：How can I put multiple knitr::kable or stargazer tables next to each other?如何将多个 knitr::kable 或 stargazer 表并排放置？
【发布时间】：2017-03-10 18:46:15
【问题描述】：

尝试简单地制作 Anscombe 的四重奏组的单独表格，以便在它们和格式之间有一个很好的空间。我更喜欢一组 1x4 的桌子，但 2x2 就足够了。

对于任一维度的结果，knitr::kables 和 stargazer 解决方案似乎都无法处理多个非模型或非摘要对象：

anscombe.1 <- data.frame(X1 = anscombe[["x1"]], Y1 = anscombe[["y1"]], Set = "1")
anscombe.2 <- data.frame(X2 = anscombe[["x2"]], Y2 = anscombe[["y2"]], Set = "2")
anscombe.3 <- data.frame(X3 = anscombe[["x3"]], Y3 = anscombe[["y3"]], Set = "3")
anscombe.4 <- data.frame(X4 = anscombe[["x4"]], Y5 = anscombe[["y4"]], Set = "4")
# I usually call stargazer() with multiple model objects, so...
stargazer(anscombe.1, anscombe.2, anscombe.3, anscombe.4, summary = FALSE)

if (.global.summary[i] == TRUE) { 中的错误：需要 TRUE/FALSE 的缺失值
调用： ... withVisible -> eval -> eval -> stargazer -> .stargazer.wrap

但是，如果调用 stargazer(anscombe.1, summary = FALSE)，我会得到所需的输出。同样，我可以调用knitr::kable(anscombe) 并获取单个集合的表，但不是全部四个：

knitr::kable(anscombe.1, anscombe.2, anscombe.3, anscombe.4)

从第 9-36 行退出 (anscombe.Rmd) 回合错误(x[, j], digits[j]) :
数学函数的非数字参数调用：... withCallingHandlers -> withVisible -> eval -> eval ->

我如何将这四个集合放在一起 - 最好放在一行四个表中，它们之间有一些空间 - 这样我就可以在下面排列它们（类似的）汇总统计信息，可能使用相同的技术进行列式汇总?

【问题讨论】：

你真的不清楚你想要什么样的输出。你用的是knitr还是Sweave？你在生产 LaTeX 还是 Markdown？没有这些细节，没人能回答你的问题。
这可能是您正在寻找的Align two data.frames next to each other with knitr?。但我同意@user2554330。无论您是想将它编织成 html 还是乳胶，这都会有所不同。
@user2554330 我在 rmd 文件中编译它，并将 doc_type 设置为 pdf_document；所以我想通过调用 stargazer 或 kable 来编织乳胶
@user 看我上面的评论

标签： r knitr r-markdown sweave stargazer

【解决方案1】：

在 Markdown 中并排放置东西很难：它不是为此而设计的。所以你需要在文件中包含一些 LaTeX 标记。

例如，

---
title: "Side by Side"
date: "October 31, 2016"
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```

## Side by Side

\begin{minipage}{0.3\textwidth}
```{r}
knitr::kable(diag(2), format = "latex")
```
\end{minipage}
\begin{minipage}{0.3\textwidth}
```{r}
knitr::kable(diag(3), format = "latex")
```
\end{minipage}
\begin{minipage}{0.3\textwidth}
```{r echo=FALSE}
knitr::kable(diag(4), format = "latex")
```
\end{minipage}

这会产生类似的输出

【讨论】：