Сброс par до значений по умолчанию при запуске

обычно, когда я делаю свои собственные функции сюжета, я делаю конструкцию:

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

который является стандартным способом возврата par к предыдущим значениям. Представьте, что вы запускаете некоторые функции, которые изменили некоторые из pars, и вам нужно сбросить значения по умолчанию при запуске в R. каков удобный способ сделать это?

или другими словами : как можно достичь значений по умолчанию для par()?

4 61
javascript parsing default-arguments

4 ответа:

каждый раз при открытии нового устройства par () сбрасывается, поэтому другой вариант-просто сделать dev.off() и дальше.

71

Это 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
48

С 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
9

используйте ниже скрипт, чтобы вернуться к нормальному 1 участок:

par(mfrow = c(1,1))
0