并排排列Xtable

Question

我看到了在RMarkdown-HTML knitr, R Markdown, and xtable: xtable tables within HTML table中并行创建xtable的答案。

以及如何在Sweave直接R: Print two tables with xtable ()中并行创建xtable

但是Rmarkdown/Pandoc中的并排xtable如何？

在我的*Rmd文件中

```{r , results='asis', message=FALSE, echo=FALSE}

female.bmi <- lm(bmi ~年龄组+种族+ GEO_SPA + FPL_FIN +as.factor(年份)，

          data=lach[lach$GENDER=='Female',] )

xtable(female.bmi，comment=FALSE，标题=“女性体重指数的线性回归”)

male.bmi <- lm(bmi ~年龄组+种族+ GEO_SPA + FPL_FIN +as.factor(年份)，

        data=lach[lach$GENDER=='Male',] )

xtable(male.bmi，comment=FALSE，标题=“男性体重指数的线性回归”)

然后，我编译如下：

knit('Modeling/simple.rmd', 'Modeling/simple.md') # creates md file
pandoc('Modeling/simple.md', format='latex') # LaTeX/PDF

这些是分开的桌子-太好了！但是，如何才能让它们同时显示为并行的子图/子表呢？我尝试将Latex子图形代码集成到{r}print(xtable)代码中，但没有效果。

Answer 1

好的，用R标记来制作它是非常容易的。下面是我的代码和结果：

我结合了你链接到的例子：

这是.Rmd文件的代码：

---
title: " 2 tables in markdown side by side"
author: "Marcin Kosiński"
date: "2014"
output: 
   pdf_document:
      includes:
         in_header: header2.tex
      highlight: pygments
      toc: true
      toc_depth: 3
      number_sections: true
---

```{r,echo=FALSE}

图书馆(针织品)

opts_chunk$set(comment=""，message=FALSE，tidy.opts=list(keep.blank.line=TRUE，width.cutoff=120)，options(width=100)，cache=TRUE，fig.aliing=‘center’，fig.height=6，fig.width=10，fig.path=‘人形/光束-’，图显示=‘持有’，大小=‘脚注大小’，cache=TRUE)

```{r}

图书馆(Xtable)

数据(Tli)

附(Tli)

X <- tli

fm1 <- aov(苗条~性别+种族+等级+不推荐，data=x)

打印(xtable(Fm1)，file="ta.tex"，floating=FALSE)

打印(xtable(head(tli，n=5))，file="tb.tex"，floating=FALSE)

\begin{table}[ht]
\centering
\subfloat[Table x(a)]{\label{tab:tab1a}\scalebox{.5}{\input{./ta}}}\quad
\subfloat[Table x(b)]{\label{tab:tab1b}\scalebox{.5}{\input{./tb}}}
\caption{Caption about here}
\label{tab:tab1}
\end{table}

下面是header2.tex文件的代码，它需要与.Rmd文件位于同一个文件夹中：

\usepackage{subfig}
\usepackage{graphicx}

​

​