web-dev-qa-db-ja.com

Rマークダウン、knitr、pandoc、beamerによるプロットサイズと解像度

デフォルトではスライドに収まらず、他の方法で印刷することもできません。

.Rmdは次のとおりです。編集：すべてのチャンクでplot（）を使用する必要があるようです。 2番目のプロットが印刷されるようになりました。

# Plot should show at high resolution

```{r echo=FALSE, comment = ""}
# load some data
require(plyr)
rbi <- ddply(baseball, .(year), summarise,  
  mean_rbi = mean(rbi, na.rm = TRUE))
```

```{r}
# plot
plot(mean_rbi ~ year, type = "l", data = rbi)
```

# Second attempt
```{r, fig.width = 2, fig.height = 2}
plot(mean_rbi ~ year, type = "l", data = rbi)
```

# Third attempt
```{r, out.width = 2, out.height = 2}
plot(mean_rbi ~ year, type = "l", data = rbi)
```

# Fourth attempt
```{r, out.width = '200px', out.height = '200px'}
plot(mean_rbi ~ year, type = "l", data = rbi)
```

# Fifth attempt
```{r, out.width = '\\maxwidth'}
plot(mean_rbi ~ year, type = "l", data = rbi)
```

test.Rmdとして保存し、beamerを使用してtexにコンパイルします。

knit("test.Rmd")
system("pandoc -s -t beamer --slide-level 1 test.md -o test.tex")

RStudioでtest.texを開き、[Compile PDF]をクリックします。

私はYihuiの documentation を読みましたが、本当に明らかなことを見逃していないことを願っています。

EditYihuiの提案を取り入れた新しいコード。

```{r setup, include=FALSE}
opts_chunk$set(dev = 'pdf')
```

# Plot should show at high resolution

```{r echo=FALSE, comment = ""}
# load some data
require(plyr)
rbi <- ddply(baseball, .(year), summarise,  
  mean_rbi = mean(rbi, na.rm = TRUE))
```

```{r}
# plot
plot(mean_rbi ~ year, type = "l", data = rbi)
```

# Second attempt
```{r, fig.width = 4, fig.height = 4}
plot(mean_rbi ~ year, type = "l", data = rbi)
```

sessionInfo()

 R version 3.0.1 (16/05/2013)
Platform: x86_64-pc-linux-gnu (64-bit)

Local:
 [1] LC_CTYPE = en_US.UTF-8 LC_NUMERIC = C LC_TIME = C LC_COLLATE = C        
 [5] LC_MONETARY=C        LC_MESSAGES=C        LC_PAPER=C           LC_NAME=C           
 [9] LC_ADDRESS=C         LC_TELEPHONE=C       LC_MEASUREMENT=C     LC_IDENTIFICATION=C 

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] plyr_1.8       markdown_0.6   knitr_1.2      rCharts_0.3.51 slidify_0.3.52

loaded via a namespace (and not attached):
 [1] RJSONIO_1.0-3   codetools_0.2-8 digest_0.6.3    evaluate_0.4.3  formatR_0.8    
 [6] grid_3.0.1      lattice_0.20-15 stringr_0.6.2   tools_3.0.1     whisker_0.3-2  
[11] yaml_2.1.7
rknitrpandocbeamerr-markdown
58
nacnudus

これは、Pandocとmarkdownから作成されたビーマースライドの図形の動作に関するよくある質問だと思います。実際の問題は、R Markdownがデフォルトで（knitrから）PNG画像を生成し、デフォルトでLaTeXでPNG画像のサイズを正確に取得するのが難しいことです（理由はわかりません）。ただし、PDFイメージのサイズを正確に取得するのはかなり簡単です。 1つの解決策は、最初のチャンクでデフォルトのグラフィカルデバイスをPDFにリセットすることです。

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

その後、すべての画像はPDFファイルとして書き込まれ、LaTeXは満足します。

2番目の問題は、out.width/out.heightでHTMLユニットとLaTeXユニットを混同していることです。 LaTeXとHTMLは非常に異なる技術です。 \maxwidthがHTMLで、または200pxがLaTeXで動作することを期待しないでください。特に、MarkdownをLaTeXに変換する場合は、out.width/out.heightを設定しないことをお勧めします（fig.width/fig.heightを使用し、LaTeXに元のサイズを使用させます）。

46
Yihui Xie

図のサイズはインチ単位で指定され、ドキュメント出力形式のグローバルオプションとして含めることができます。例えば：

---
title: "My Document"
output:
  html_document:
    fig_width: 6
    fig_height: 4
---

また、グラフィックデバイスでのプロットのサイズは、チャンクレベルで増やすことができます。

```{r, fig.width=14, fig.height=12}          #Expand the plot width to 14 inches

ggplot(aes(x=mycolumn1, y=mycolumn2)) +     #specify the x and y aesthetic
geom_line(size=2) +                         #makes the line thicker
theme_grey(base_size = 25)                  #increases the size of the font
```

out.widthおよびout.height引数を使用して、出力ファイルのプロットのサイズを直接定義することもできます。

```{r, out.width="200px", out.height="200px"} #Expand the plot width to 200 pixels

ggplot(aes(x=mycolumn1, y=mycolumn2)) +     #specify the x and y aesthetic
geom_line(size=2) +                         #makes the line thicker
theme_grey(base_size = 25)                  #increases the size of the font
```
19
Cro-Magnon