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输出（markdown文件）上显示这样的图像。

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

导入使用Rmd上的视口创建的数字以进行降价

1 个答案: