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

Question

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

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

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

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

Answer 1

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

Answer 2

Это хакерство, но:

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

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

par(mfrow = c(1,1))