Горячая замена/установка эстетики/цветов глобального масштаба для ggplot?

Question

Мне нравится писать функцию, которая в глобальном масштабе задает определенные параметры темы и масштабирует эстетику объектов ggplot, сравнимую с ggthemr-package.

я могу изменить параметры тему с следующим кодом-сниппета:

sjtheme <- theme_grey() + 
    theme(axis.text.x = element_text(angle=axis.angle.x, size=rel(axis.size.x), colour=axis.color.x), 
     axis.text.y = element_text(angle=axis.angle.y, size=rel(axis.size.y), colour=axis.color.y), 
     axis.title = element_text(size=rel(axis.title.size), colour=axis.title.color), 
     axis.ticks = element_line(colour=axis.ticks.color), 
     axis.ticks.length = unit(axis.ticks.length, "cm"), 
     plot.title = element_text(size=rel(title.size), colour=title.color), 
     plot.background = element_rect(colour=plot.bordercol, fill=plot.backgroundcol), 
     panel.background = element_rect(colour=panel.bordercol, fill=panel.backcol), 
     panel.grid.minor = element_line(colour=panel.minor.gridcol), 
     panel.grid.major = element_line(colour=panel.major.gridcol)) 
theme_set(sjtheme) 

GEOM по умолчанию можно изменить, например, с

update_geom_defaults('boxplot', list(fill = geom.colors, alpha = geom.alpha, outlier.colour = geom.colors)) 

теперь это так хорошо работает, так что всякий раз, когда я создаю ggplot-объект, мои темы и GEOM опции применяются.

Но как мне это сделать с помощью весов, так что цвета штрих/точка/линия получат новый стандарт?

Существует решение в ggthemr-пакет: https://github.com/cttobin/ggthemr/blob/master/R/theme_scales.R

Однако этот подход изменяет глобальную окружающую среду, которая нарушает правила представления CRAN. Все предложения, которые я нашел через поиск eninge в Интернете, не работают, например «set_scale_defaults» (который был удален в новых версиях ggplot) или this posting или this posting.

Итак, есть ли возможность изменить масштабные значения по умолчанию, которые не изменяют глобальную среду пользователя?

Answer 1

вы можете просто переопределить соответствующую шкалу,

scale_colour_discrete <- function(...) 
    scale_colour_brewer(..., palette="Set1")