导入使用 Rmd 上的视口创建的图形以进行降价答案

【问题标题】：Importing figures created using viewport on Rmd for markdown导入使用 Rmd 上的视口创建的图形以进行降价
【发布时间】：2013-03-18 19:11:13
【问题描述】：

我正在尝试将图形从 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))
```

这里的文件名“用于校准的监测站.R”是我有 k1 和 k2 数字的文件。我想将这两者结合起来并显示为一个新人物。可以使用 knitr 吗？

感谢您的帮助。

【问题讨论】：

标签： r markdown knitr

【解决方案1】：

这对我来说很好用：

```{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))
```

【讨论】：