1

RファイルからRmdファイルにグラフを参照しようとしています。Rファイルでは、次のコードを使用して、ビューポートから最終的なグラフを生成しました。

コードは：

library(grid)
grid.newpage()
pushViewport(viewport(layout = grid.layout(1, 2)))
vplayout <- function(x, y)
  viewport(layout.pos.row = x, layout.pos.col = y)
print(k1, vp = vplayout(1, 1))
print(k2, vp = vplayout(1,2))

さて、そのコードのチャンクをRmdファイルに使用しようとすると、何も表示されません。このような画像をknitr出力（マークダウンファイル）に表示するにはどうすればよいですか？

```{r}
source("../../../Calibration Model/R code/monitoring stations for calibration.R")
library(grid)
grid.newpage()
pushViewport(viewport(layout = grid.layout(1, 2)))
vplayout <- function(x, y)
  viewport(layout.pos.row = x, layout.pos.col = y)
print(k1, vp = vplayout(1, 1))
print(k2, vp = vplayout(1,2))
```

ここで、ファイル名「calibration.Rの監視ステーション」は、k1とk2の数値が含まれているファイルです。この2つを組み合わせて、新しいフィギュアとして見せたいと思います。knitrを使用して行うことは可能ですか？

助けてくれてありがとう。

4

1 に答える 1

3

これは私にとってはうまくいきます：

```{r fig.width=7, fig.height=6}
library(grid)
library(ggplot2)
grid.newpage()
pushViewport(viewport(layout = grid.layout(1, 2)))
vplayout <- function(x, y)
  viewport(layout.pos.row = x, layout.pos.col = y)
k1 <- ggplot(mtcars, aes(factor(cyl), mpg))  + geom_boxplot()
print(k1, vp = vplayout(1, 1))
print(k1, vp = vplayout(1,2))
```
于 2013-03-18T19:22:16.473 に答える