Come impostare un colore di default in R per tutte le chiamate plot.default, plot o lines

Question

per semplificare le mie interazioni giornaliere R, vorrei impostare i colori di default per tutti i miei grafici. Per esempio, diciamo che voglio avere tutti i grafici realizzati con linee rosse (come in gnuplot ... :-))

Finora, ecco un frammento della mia .Rprofile

setHook(packageEvent("grDevices", "onLoad"), 
    function(...) 
     grDevices::X11.options(width = 14, height = 8, type = "Xlib", xpos = 600,  ypos = 30, canvas = "grey87")) 

suppressPackageStartupMessages(require(Defaults)) 
suppressPackageStartupMessages(require(utils)) 
suppressPackageStartupMessages(require(graphics)) 

setDefaults("plot.default",frame.plot=FALSE, type='l', col=2) 

Quello che ho fare qui è il seguente: quando il pacchetto grDevices viene caricato (caricando il pacchetto graphics), chiamo lo X11.options con i miei parametri preferiti: una casella più ampia, sfondo grigio chiaro, chiamate xlib (perché sto facendo chiamate a distanza, e cairo nel mio ambiente attuale è troppo lento (un altro problema da risolvere)) Quindi carico silenziosamente 3 pacchetti, Defaults, utils e graphics. Il secondo è necessario per evitare un messaggio di errore della funzione find.

Infine, la funzione magica setDefaults imposta 3 parametri sulla funzione di grafico a dispersione plot.default. Il 3 ° parametro col non è un parametro di plot.default ma uno dalla funzione par().

Tuttavia, una chiamata setDefaults con par non funziona.

Qualsiasi soluzione è benvenuto ...

Answer 1

È possibile utilizzare il gancio "plot.new" per impostare i valori di default par ogni volta che viene aperta una nuova cornice grafica. (Lavorazioni del gancio sono documentati in ?plot.new e ?setHook)

Nel tuo caso, è sufficiente aggiungere questa riga al vostro .Rprofile:?

setHook("plot.new", function() par(col = "red")) 

Answer 2

I parametri quali il colore si trovano su una base per dispositivo, in modo che quando si chiude un dispositivo e crearne uno nuovo tutti i parametri sono impostati ai valori di default. Per fare questo vorrei creare la propria funzione dispositivo che apre il dispositivo quindi imposta i parametri, qualcosa di simile a:

mydev.new <- function(...) { 
    dev.new(...) 
    par(col='red') 
} 

Si potrebbe ovviamente sostituire dev.new con x11 o qualcos'altro, ma questo è probabilmente il più portabile. Ora puoi aprire un nuovo dispositivo utilizzando mydev.new e il colore predefinito verrà impostato su rosso.

Inoltre, se si esegue il comando

options(device=mydev.new) 

Poi, quando non si dispone di un dispositivo grafico aperto e si esegue un comando tracciato, la funzione sarà quella corsa per aprire un nuovo dispositivo di stampa e così anche in questo caso l'impostazione predefinita sarà rossa. È possibile espandere la funzione mydev.new (o qualsiasi altra cosa si voglia chiamare) per impostare altre opzioni, prendere argomenti, ecc. Per i diversi casi con cui si potrebbe voler lavorare.