Réinitialisation par les valeurs par défaut au démarrage

Normalement quand je fais mon propre tracer des fonctions, je fais construire :

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

qui est le moyen de rétablir la par les valeurs précédentes. Imaginez que vous avez été l'exécution de certaines fonctions qui n'ont de changer certaines de la pars, et vous avez besoin de réinitialiser aux valeurs par défaut au démarrage en R. Quelle est la façon la plus pratique de le faire?

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

J'étais sous l'impression que chaque fois qu'une nouvelle carte graphique se met en marche, il est donné des valeurs par défaut de toute façon.
Ils le font, mais je pense que la poussée de @Joris Q est, est-il un moyen de réinitialiser la pars pour l'appareil actuel si l'on n'a pas enregistré les paramètres par défaut. En d'autres termes, comment pouvons-nous déterminer la valeur par défaut pars pour un dispositif, non pas de la pars.
Simpson Ah ok, mais dev.new() et dev.off() pourraient être utilisés à l'époque
En effet; j'en ai parlé à @Joris dans la R tag de la salle de chat, mais nous voulons un moins hacky solution 🙂

InformationsquelleAutor Joris Meys | 2011-04-26

80

Chaque fois qu'un nouveau périphérique est ouvert par() sera remis à zéro, donc une autre option est de simplement faire dev.off() et continuer.
- Parmi toutes les réponses fournies, c'est le seul qui répond vraiment à la question posée.
- ne serait pas dev.off() être une mauvaise option si nous nous étions plusieurs parcelles dans un pdf ? parce que ce serait de fermer la pdf appareil et ne sera donc pas en mesure de disposer de plusieurs parcelles en un seul pdf
InformationsquelleAutor DarkHalo
51

C'est hacky, mais:
```
resetPar <- function() {
    dev.new()
    op <- par(no.readonly = TRUE)
    dev.off()
    op
}
```
fonctionne après un de la mode, mais il ne flash un nouveau périphérique sur l'écran temporairement...

E. g.:
```
> 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
```
- Il pourrait être plus sûr d'éviter de tenter de réinitialiser les points qui ont été modifiés par le redimensionnement de comme mai, mar, pin, plt et pty (comme mis en garde dans le rep page d'aide.)
- Une idée similaire a été discuté sur la R-aider: tolstoy.newcastle.edu.au/R/e2/help/07/09/26665.html
- N'ai pas trouver autre chose, de sorte que aurez à faire.
- Dans ce sens, n'est-ce pas travailler avec RStudio? Est-il quelque chose à faire avec leur appareil et le code ci-dessus en créer un nouveau?
- Je reçois le message d'erreur "message d'Avertissement: En (fonction () : un Seul RStudio périphérique graphique est autorisée'
- Difficile alors; il peut seulement être un tel dispositif et que le R ne stocke pas les valeurs par défaut il y a maintenant moyen, esily, de les saisir. Demander à l'RStudio les gens à ce sujet. Sinon, ne changez pas par() sans stocker les valeurs par défaut. Ou prendre des dispositions pour que les valeurs par défaut pour être attrapé au démarrage par le biais de votre .Rprofile.
InformationsquelleAutor Reinstate Monica - G. Simpson
15

De Rapide-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
```
- Je le sais, mais il n'est pas de restaurer les valeurs par défaut si vous avez changé d'entre eux. par() affiche les paramètres actuels, pas les paramètres par défaut.
- Cette solution peut ne pas fonctionner dans ce cas mais laissons ici comme une approche qui ne fonctionne pas.
InformationsquelleAutor Anusha
2

Une solution de rechange pour la prévention de fonctions pour modifier 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 mise en page ne sera pas modifiée au cours de 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)
```
InformationsquelleAutor Federico Giorgi
-1

Utiliser en dessous de script pour obtenir un retour à la normale 1 parcelle:
```
par(mfrow = c(1,1))
```
InformationsquelleAutor Mahesh

Vous devez vous connecter pour publier un commentaire.