두 개의 그림을 R에 첨부하십시오

Question

이 그림의 강조 표시된 부분을 주요 그림 안에 별도의 그림으로 표시하고 싶습니다. R에서 이것을 어떻게 할 수 있습니까? 당신은 그냥 음영 지역을 원하는 경우

 lin <- data.frame(x = c(0:6), y = c(0.3, 0.1, 0.9, 3.1, 5, 4.9, 6.2)) 
    linm <- lm(y ~ x, data = lin, subset = 2:4) 
    plot(y ~ x, data = lin) 
    abline(linm) 

Answer 1

을하지만 난 롤랜드는 지적이 중복 믿습니다. 내가 한 모든 롤랜드가 제공 한 링크를 사용하여 부가 적 줄거리에 c(0, 3)에 ylim/xlim를 원래의 플롯을 가지고 설정 :

op <- par(no.readonly = TRUE) 

lin <- data.frame(x = c(0:6), y = c(0.3, 0.1, 0.9, 3.1, 5, 4.9, 6.2)) 
linm <- lm(y ~ x, data = lin, subset = 2:4) 
plot(y ~ x, data = lin) 
abline(linm) 

par(new=TRUE, oma=c(3,1,1,2)) 
layout(matrix(1:4,2)) 

lin <- data.frame(x = c(0:6), y = c(0.3, 0.1, 0.9, 3.1, 5, 4.9, 6.2)) 
linm <- lm(y ~ x, data = lin, subset = 2:4) 
plot(y ~ x, data = lin, ylim=c(0,3), xlim=c(0, 3)) 
abline(linm) 

par(op) 

Answer 2

, 같은 시도 : 내가 답변 해 드리겠습니다

lin <- data.frame(x = c(0:6), y = c(0.3, 0.1, 0.9, 3.1, 5, 4.9, 6.2)) 
linm <- lm(y ~ x, data = lin, subset = 2:4) 
plot(y ~ x, data = lin) 
abline(linm) 
rect(0,0,3,3, col=rgb(.5,.5,.5,.5),border=NA)