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 파일에 코드의 덩어리를 사용하려고하면 다음 아무것도 표시되지 않습니다. 어떻게 이러한 이미지를 니트 출력 (markdown file)에 표시 할 수 있습니까?

```{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 수치를 가지고있는 파일입니다. 나는이 둘을 결합하여 새로운 인물로 보여주고 싶습니다. knitr을 사용하여 할 수 있습니까?

도움 주셔서 감사합니다.

Answer 1

이 나를 위해 잘 작동 :

agstudy @

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