2

我有以下代码生成四个图,但它们最终被压扁(见下图)。我该如何解决?

par(mfrow=c(2,2))
curve(.5*exp(-.5*x),from=0,to=10,main="f(x)")
curve(.25*exp(-.25*x),from=0,to=10,main="f(y)")
curve(1-exp(-.5*x),from=0,to=10,main="F(x)")
curve(1-exp(-.25*x),from=0,to=10,main="F(y)")

在此处输入图像描述

4

1 回答 1

3

三个选项:

1)par(mar=c(bottom, left, top, right))用于指定各自的边距。

2)增加总输出大小,它会自动增加绘图大小。

3) 使用ggplotwith facet_wrap,这将允许您共享轴以最大化空间。

于 2013-09-24T15:55:57.343 回答