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()
?
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.
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
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
Utilisez le script ci-dessous pour revenir à un tracé normal:
par(mfrow = c(1,1))