r - 在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

我会回答，但我相信这是罗兰指出的重复。我所做的只是获取原始情节并使用 Roland 提供的链接在子情节中将ylim/设置xlim为：c(0, 3)

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)