図
余白の図
余白に図を配置するには、knitrチャンクオプションでfig.margin = TRUEとしてしまえばOKです。以下チャンクの例です:
\```{r fig-margin, fig.margin = TRUE, fig.cap = "MPG vs horsepower, colored by transmission.", fig.width=3.5, fig.height=3.5, cache=TRUE}
library(ggplot2)
mtcars2 <- mtcars
mtcars2$am <- factor(
mtcars$am, labels = c('automatic', 'manual')
)
ggplot(mtcars2, aes(hp, mpg, color = am)) +
geom_point() + geom_smooth() +
theme(legend.position = 'bottom')
\```行頭の\はエスケープさせるために入れています。無視してください。このチャンクを入れると以下(右?)のようになります:
MPG vs horsepower, colored by transmission.
library(ggplot2)
mtcars2 <- mtcars
mtcars2$am <- factor(
mtcars$am, labels = c('automatic', 'manual')
)
ggplot(mtcars2, aes(hp, mpg, color = am)) +
geom_point() + geom_smooth() +
theme(legend.position = 'bottom')チャンクオプションのfig.capは図のキャプションを提供します。また、fig.widthやfig.heightでサイズ指定できます(inchです)。なお、ハンドアウトの余白に合わせて自動的に調整されます。
任意の余白コンテンツ
ぶっちゃけ、余白部分にはmarginfigureというknitrエンジンでいろんなのを放り込めます。以下のようなコードがあるとします:
\```{marginfigure}
We know from _the first fundamental theorem of calculus_ that for $x$ in $[a, b]$:
$$\frac{d}{dx}\left( \int_{a}^{x} f(u)\,du\right)=f(x).$$
\```これをドキュメント内に入れておいてKnitすると、余白部分に上記の内容が出てきます。数式もOKです。
We know from the first fundamental theorem of calculus that for x in [a, b]:
\[\frac{d}{dx}\left( \int_{a}^{x} f(u)\,du\right)=f(x).\]
ただ、このmarginefigureブロック内では、できるだけシンプルなものにとどめておくようにしてください。太字(**太字**)や_イタリック_(_イタリック_)ぐらいにしておいて、この中でさらに脚注とか参照とかブロックレベルの要素(リストや引用など)は避けときましょう。
フルワイドな図
チャンクオプションでfig.fullwidth = TRUEと指定すれば、メイン部分と余白部分の両方にまたがる、フルワイドな図を描けます。以下チャンクの例です:
\```{r fig-fullwidth, fig.width = 10, fig.height = 2, fig.fullwidth = TRUE, fig.cap = "A full width figure.", warning=FALSE, cache=TRUE}
ggplot(diamonds, aes(carat, price)) + geom_smooth() +
facet_grid(~ cut)
\```このチャンクを含んでKnitすると、以下のようになります:
ggplot(diamonds, aes(carat, price)) + geom_smooth() +
facet_grid(~ cut)
A full width figure.
他のチャンクオプションとも併用できますし、fig.width, fig.cap, out.widthなど対応してます。
メイン部分の図
もちろんメイン部分にも図を描けますし、むしろこれがデフォルトです。以下チャンク例です:
\```{r fig-main, fig.cap = "A figure in the main column.", cache=TRUE}
ggplot(diamonds, aes(cut, price)) + geom_boxplot()
\```このチャンクを含んでKnitすると、以下のようになります:
ggplot(diamonds, aes(cut, price)) + geom_boxplot()A figure in the main column.
キャプションは余白部分に表示されるようになります。