在R中附加两个数字答案

【问题标题】：Attach two figures in R在R中附加两个数字
【发布时间】：2013-07-25 08:29:31
【问题描述】：

我想将此图中突出显示的部分作为主图中的一个单独的图。我如何在 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)

【问题讨论】：

您能否提供更多详细信息，说明您希望预期结果是什么样的？
这样的？ stackoverflow.com/a/17696562/1412059
我需要一个从 x = 0 到 3 和 y=0 到 3 的子图，在现有图的旁边。
是的。我希望阴影区域作为主图内的子图。

标签： r

【解决方案1】：

我会回答，但我相信正如 Roland 指出的那样，这是重复的。我所做的只是获取原始情节并使用 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)

【讨论】：

谢谢。只是如果我想改变新子图在上回归线中的位置，我该怎么办？

【解决方案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)

【讨论】：