在启动时将 par 重置为默认值

通常，当我创建自己的情节函数时，我会创建一个结构:

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

这是将 par恢复到以前值的标准方法。假设您已经运行了一些函数，这些函数确实更改了一些 pars，并且您需要在 R 中启动时重置为默认值。这样做的方便方式是什么？

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

129104 次浏览
小开

This is hacky, but:

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

works after a fashion, but it does flash a new device on screen temporarily...

E.g.:

> 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
小开

From 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
小开
最佳答案

Every time a new device is opened par() will reset, so another option is simply do dev.off() and continue.

小开

Use below script to get back to normal 1 plot:

par(mfrow = c(1,1))
小开

An alternative solution for preventing functions to change the user par. You can set the default parameters early on the function, so that the graphical parameters and layout will not be changed during the function execution. See ?on.exit for further details.

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

dev.off() is the best function, but it clears also all plots. If you want to keep plots in your window, at the beginning save default par settings:

def.par = par()

Then when you use your par functions you still have a backup of default par settings. Later on, after generating plots, finish with:

par(def.par) #go back to default par settings

With this, you keep generated plots and reset par settings.


提交答案