在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

如果您只想要一个阴影区域，请尝试以下方法：

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)

Answer 2

我会回答，但我相信这是一个副本，正如罗兰指出的那样。我所做的只是采用原始情节，并使用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)