在启动时将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