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

Question

我正在尝试将图表从 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 吗？

感谢您的任何帮助。

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