Réinitialisation des par aux valeurs par défaut au démarrage

Question

Normalement, lorsque je crée mes propres fonctions de traçage, je crée une construction :

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

ce qui est la façon standard de rétablir la valeur de l'option par aux valeurs précédentes. Imaginons que vous ayez exécuté des fonctions qui ont modifié certains paramètres et que vous ayez besoin de rétablir les valeurs par défaut au démarrage de R. Quelle est la façon la plus pratique de le faire ?

Ou, en d'autres termes, comment atteindre les valeurs par défaut pour les éléments suivants par() ?

Answer 1

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

Answer 2

C'est bidon, mais :

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

fonctionne après une mode, mais il fait clignoter un nouveau dispositif à l'écran temporairement...

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

Answer 3

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

Answer 4

Une solution alternative pour empêcher les fonctions de changer l'utilisateur par . Vous pouvez définir les paramètres par défaut au début de la fonction, de sorte que les paramètres graphiques et la présentation ne soient pas modifiés pendant l'exécution de la fonction. Voir ?on.exit pour plus de détails.

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

Answer 5

Utilisez le script ci-dessous pour revenir au tracé normal 1 :

par(mfrow = c(1,1))