启动时将 par 重置为默认值

Question

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

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

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

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

Answer 1

每次打开新设备时，par() 都会重置，因此另一个选择是简单地执行 dev.off() 并继续。

Answer 2

这很hacky，但是：

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

Answer 3

来自 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

Answer 4

用于防止函数更改用户 par 的替代解决方案。您可以在函数早期设置默认参数，这样图形参数和布局在函数执行过程中不会改变。请参阅 ?on.exit 了解更多详细信息。

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

Answer 5

dev.off() 是最好的函数，但它也会清除所有绘图。如果您想在窗口中保留绘图，请在开始时保存默认参数设置：

def.par = par()

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

par(def.par) #返回默认标准设置

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

Answer 6

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

par(mfrow = c(1,1))