在启动时将参数重置为默认值

通常，当我制作自己的绘图函数时，我会构造一个：

op <- par("mypar"=myvalue)
on.exit(par(op))

这是将还原par为先前值的标准方法。假设您正在运行一些确实更改了某些参数的函数，并且需要在R中启动时将其重置为默认值。这样做的便捷方法是什么？

换句话说：如何达到默认值par()？

每次打开新设备时，par（）都会重置，因此另一个选择就是dev.off()继续并继续。

这很骇人，但是：

resetPar <- function() {
    dev.new()
    op <- par(no.readonly = TRUE)
    dev.off()
    op
}

流行之后可以工作，但确实会在屏幕上暂时刷新新设备...

例如：

> par(mfrow = c(2,2)) ## some random par change
> par("mfrow")
[1] 2 2
> par(resetPar())     ## reset the pars to defaults
> par("mfrow")        ## back to default
[1] 1 1

来自Quick-R

par()              # view current settings
opar <- par()      # make a copy of current settings
par(col.lab="red") # red x and y labels 
hist(mtcars$mpg)   # create a plot with these new settings 
par(opar)          # restore original settings

防止功能更改用户的替代解决方案par。您可以在功能上尽早设置默认参数，以便在功能执行期间不会更改图形参数和布局。有关?on.exit详细信息，请参见。

on.exit(layout(1))
opar<-par(no.readonly=TRUE)
on.exit(par(opar),add=TRUE,after=FALSE)

使用下面的脚本返回到正常的1个图：

par(mfrow = c(1,1))

dev.off（）是最好的函数，但它也会清除所有图。如果要将图保留在窗口中，请在开始时保存默认的面值设置：

def.par = par（）

然后，当您使用par函数时，您仍然具有默认par设置的备份。稍后，在生成图之后，完成：

par（def.par）＃返回默认par设置

这样，您就可以保留生成的图并重置参数设置。