r - ニットで垂直に積み上げられたサブフィギュア

Question

ラテックス ドキュメントで Knitr を使用して、2 つのサブフィギュアを横に並べるのではなく、縦に重ねて配置しようとしています。Latex では、通常、上下に積み重ねる必要がある 2 つのサブフロートの間に '\par' コマンドを配置することでこれを行いますが、そのコマンドを Knitr に渡す方法がわかりません。

これに関するトピックは 1 つしか見つかりませんでした。Subfigures または Subcaptions with Knitr? . Yihui が示した例では、図を並べて表示しています。そのスレッドの最終的な答えは私の目標を達成しますが、かなりのハッキングを使用しているため、このコマンドを直接 Knitr に渡す簡単な方法があるかどうか疑問に思っていますか?

MWE:

\documentclass[a4paper]{article} 

\usepackage[font=footnotesize]{subfig}

\begin{document} 

<<GeneratePlot>>=
library(ggplot2)
library(tikzDevice)
P1 <- ggplot(data=mpg, aes(x=displ, y=hwy, colour=factor(cyl)))+
    geom_line()
P2 <-  ggplot(data=mpg, aes(x=displ, y=hwy, colour=factor(cyl)))+
    geom_point()
@


<<fig1,eval=TRUE,echo=FALSE,dev='tikz', fig.width=6, fig.height=3, out.width='1\\textwidth', fig.cap='Two figures', fig.subcap=c('Top','Bottom'), fig.show='asis', fig.pos='!htpb', fig.align='center', dependson='GeneratePlot'>>= 
P1
P2
@ 

\end{document}

また、出力と同じチャンクでプロット オブジェクトを作成しようとしましたが、同じ結果が得られ、元のドキュメントではプロット オブジェクトがより大きなチャンクの一部として生成されるため、MWE と同じ構造になります。 .