web-dev-qa-db-fra.com

Réinitialiser le par aux valeurs par défaut au démarrage

Normalement, lorsque je crée mes propres fonctions de tracé, je crée une construction:

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

qui est la méthode standard pour rétablir la valeur par aux valeurs précédentes. Imaginez que vous utilisiez certaines fonctions qui ont modifié certaines des pars et que vous deviez rétablir les valeurs par défaut au démarrage dans R. Quelle est la méthode la plus pratique? 

Ou en d'autres termes: comment atteint-on les valeurs par défaut de par()?

rdefaultpar
64
Joris Meys

Chaque fois qu'un nouveau périphérique est ouvert, par () est réinitialisé. Une autre option est simplement de faire dev.off() et de continuer. 

72
DarkHalo

C'est hacky, mais:

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

fonctionne à la mode, mais il clignote temporairement un nouvel appareil à l'écran ...

Par exemple.:

> 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
49
Gavin Simpson

De 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
Anusha

Utilisez le script ci-dessous pour revenir à un tracé normal:

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