如何在R中在一个图表中绘制两个图形？

如何在R中在一个图表中绘制两个图形？ 我可以使用mfrow=c（2,1）在单独的部分中绘制其中的两个，但它们没有一起绘制，因此对我来说没有太大意义。。

---

感谢

查看我与Devon Shurick共同撰写的本教程（对于那些投票反对此链接的人，本教程不会有任何进展）：

如果您想将一个图形强加于另一个图形，可以执行以下操作：

为了从两个向量（x和y）中绘制数据点，我们可以将plot函数与form plot（x，y）一起使用，或者类似地使用form plot（x）通过索引绘制一个向量

绘制的限制或范围可根据以下方面进行规定： xlim=c（下界，上界）和ylim=c（下界，上界） 可以在上面的绘图调用中看到。main=指定绘图的标题。 标签也可以指定xlab和ylab选项。我们可以叠加 使用points函数在原始绘图的顶部添加点。比如说 区分所有点（TEEi、NORMi），使TEEi

points(NORM[NORM^2 -1> TEE], TEE[ TEE + 1< NORM^2], col = "blue")
legend(legend = c("TEE > NORM^2 - 1 ", "TEE < NORM^2 - 1" ), col = c(1, 4), x = "topright", pch = 1)

3.4.4分屏内的分屏

您可能已经注意到直方图的图例没有显示出来 情节。这是因为很难在这么小的屏幕上显示传奇

假设，为了解决这个问题，我们需要一个包含大直方图的图形 下面是较小的方框图和散点图。我们可以分割已经存在的屏幕 为了实现这一目标，我们进行了分裂。观察下面的例子

split.screen(c(2,1)) # The screen is now split in two
# [1] 1 2
split.screen(c(1,2), screen = 2) # splits the second into 2
# [1] 3 4
screen(1) # note screen 2 is now refered to as 3 and 4
hist(RandomNormal, seq(-3.2, 3.2, .2), prob = TRUE)
curve(dnorm(x), add = TRUE, col = "red")
legend(legend = c("Theoretical N(0, 1)"), col = c(2, 3), x = "topright", lty = 1)

screen(3) # We call on screen 3 and 4, not 2
boxplot(DATA.oner, main = "Box Plot of DATA.oner")

screen(4)
plot(NORM, TEE, ylim = c(-4, 5), main = "NORM and TEE plot")

---

“在一起”是什么意思？在同一个情节上？并排但没有任何空间？如果您的意思是“在同一个绘图上”，那么使用

par（new=TRUE）

如果您的意思是需要的第二个（除了使用

par（mfrow=c（2,1））

重新定义绘图边距（使用

par（mar=…

）为了消除常见的空白。为什么代码块中有纯文本？为什么包含提示

符号？这两种方法都使此答案很难阅读，并将其复制/粘贴到R中。更新的答案。我同意纯文本，但不同意推广盲复制/粘贴。尽管如此，我还是根据您的建议排除了

提示.谢谢你的建设性批评。

par(mfrow = c(1, 2))
plot(NORM, TEE, ylim = c(-4, 5), main = "NORM and TEE plot")
plot(NORM, TEE, ylim = c(-4, 5), main = "NORM and TEE plot")
points(NORM[NORM^2 -1> TEE], TEE[ TEE + 1< NORM^2], col = "blue")

screen.split(2,2)
#[1] 1 2 3 4
screen(1) # what follows goes in slot (1,1)
hist(RandomNormal, seq(-3.2, 3.2, .2), prob = TRUE)
curve(dnorm(x), add = TRUE, col = "red");
screen(2) # what follows goes in slot (1,2);
boxplot(DATA.oner);
screen(3) # similarly for (2,1);
plot(NORM, TEE, ylim = c(-4, 5), main = "NORM and TEE plot");
screen(4) # similarly for (2,2);
plot(NORM, TEE, ylim = c(-4, 5), main = "NORM and TEE plot");
points(NORM[NORM^2 - 1 > TEE], TEE[TEE + 1 < NORM^2], col = "blue");

screen(1) # Watch the screen (1,1) go blank
boxplot(DATA.oner, main = "Box Plots of DATA.oner")

screen(2) # again for slot (1,2)
hist(RandomNormal, seq(-3.2, 3.2, .2), prob = TRUE)
curve(dnorm(x), add = TRUE, col = "red")

split.screen(c(2,1)) # The screen is now split in two
# [1] 1 2
split.screen(c(1,2), screen = 2) # splits the second into 2
# [1] 3 4
screen(1) # note screen 2 is now refered to as 3 and 4
hist(RandomNormal, seq(-3.2, 3.2, .2), prob = TRUE)
curve(dnorm(x), add = TRUE, col = "red")
legend(legend = c("Theoretical N(0, 1)"), col = c(2, 3), x = "topright", lty = 1)

screen(3) # We call on screen 3 and 4, not 2
boxplot(DATA.oner, main = "Box Plot of DATA.oner")

screen(4)
plot(NORM, TEE, ylim = c(-4, 5), main = "NORM and TEE plot")