Jak ustawić kolor domyślnie w R dla wszystkich operacji plot.default, plot lub linii

Question

dla uproszczenia moich codziennych interakcji R, chciałbym ustawić domyślne kolory dla wszystkich moich działek. Na przykład, powiedzmy, że chcę mieć wszystkie wykresy wykonane z czerwonej linii (jak w gnuplot ... :-))

Dotychczas tutaj jest urywek mojego .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) 

Co ja wykonaj następujące czynności: po załadowaniu pakietu grDevices (przez załadowanie pakietu graphics), nazywam X11.options z moimi preferowanymi parametrami: szersze pudełko, jasnoszare tło, połączenia xlib (ponieważ wykonuję dalekie połączenia i cairo w moim obecnym środowisku jest po prostu zbyt wolne (inny problem do rozwiązania)) Następnie cicho ładuję 3 paczki, Defaults, utils i graphics. Drugi jest potrzebny, aby uniknąć komunikatu o błędzie funkcji find.

Wreszcie, funkcja magiczna setDefaults ustawia 3 parametry dla funkcji wykresu rozproszenia plot.default. Trzeci parametr col nie jest parametrem z plot.default, ale jest jednym z funkcji par().

Ale wykonywanie połączenia setDefaults z par również nie działa.

Każde rozwiązanie jest mile widziany ...

Answer 1

Za pomocą haka "plot.new" można ustawić wartości domyślne par za każdym razem, gdy otwierana jest nowa ramka graficzna. (Wyrobiska haka są udokumentowane w ?plot.new i ?setHook)

W twoim przypadku, po prostu dodaj tę linię do .Rprofile:

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

Answer 2

Parametry takie jak kolor są ustalane na podstawie na urządzenie, więc po zamknięciu jednego urządzenia i utworzyć nową wszystkie parametry są ustawione z powrotem do ich wartości domyślnych. Aby to zrobić, chciałbym stworzyć własną funkcję urządzenia, który otwiera urządzenie ustawia parametry, coś jak:

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

Można oczywiście zastąpić dev.new z x11 lub coś innego, ale to jest chyba najbardziej przenośny. Teraz możesz otworzyć nowe urządzenie, używając mydev.new, a domyślny kolor zostanie ustawiony na czerwony.

Dalsze jeśli uruchomić polecenie

options(device=mydev.new) 

Wtedy, gdy nie masz otwarte urządzenie graficznej i uruchomieniu polecenia kreślenia, czynność będzie jeden bieg, aby otworzyć nowe urządzenie kreślenia i tak domyślny również będzie czerwony. Możesz rozwinąć funkcję mydev.new (lub jakkolwiek chcesz to nazwać), aby ustawić inne opcje, brać argumenty itp. Dla różnych przypadków, z którymi możesz chcieć pracować.