r - Rで2つの図を添付

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)