ручные цвета в ggplot с помощью функции - PullRequest
Новая
       40

ручные цвета в ggplot с помощью функции

3 голосов
/ 16 апреля 2019

У меня есть функция темы, и я хотел бы добавить scale_fill_manual(values=x) внутри функции и обновить все мои графики, но она не работает, если я добавлю эту строку в функцию my_theme.Также я не знаю, как подавить сообщения при загрузке библиотеки, используя reprex.

library(tidyverse, quietly = TRUE)

# Here I just create my HEX colors from RGB colors.  
x <-   tibble(r = c(187, 6, 226, 78, 221),
              g = c(180, 110, 223, 118, 128),
              b = c(135, 159, 204, 109, 71))


x <- modify(x, as.hexmode) %>%
  unite(r, g, b, col="hex", sep="") %>%
  map_df(~paste0("#", .x)) %>%
  pull()

# This is my theme function and I would like to add scale_fill_manual, 
# but then it does not work. I have tried different combinations.
my_theme <- function(){
    theme_minimal() +
    theme(title = element_text(color = "gray25"),
          plot.subtitle = element_text(size=12),
          plot.title = element_text(size=12),
          plot.caption = element_text(color= "gray30")) 

}

# But if I just add it in a separate line then it works. 
mpg %>% 
  ggplot() +
  geom_bar(aes(x = fct_infreq(class), fill=factor(cyl)), color="black", width = 0.5) +
  labs(title= "CK farver") +
  my_theme() +
  scale_fill_manual(values = x) +
  theme(axis.text.x = element_text(angle = -90, hjust = 0))

Создано в 2019-04-16 с помощью представительного пакета (v0.2.0).

1 Ответ

3 голосов
/ 16 апреля 2019

Если вы не намереваетесь передать дополнительные спецификации темы в my_theme, я не думаю, что действительно нужно определять ее как функцию. Список будет хорошо.

Следующее должно работать для вашей цели: 

my_theme2 <- list(
  theme_minimal() +
    theme(title = element_text(color = "gray25"),
          plot.subtitle = element_text(size=12),
          plot.title = element_text(size=12),
          plot.caption = element_text(color= "gray30")) ,
  scale_fill_manual(values = x)
)

mpg %>% 
  ggplot() +
  geom_bar(aes(x = fct_infreq(class), fill=factor(cyl)), color="black", width = 0.5) +
  labs(title= "CK farver") +
  my_theme2 + 
  theme(axis.text.x = element_text(angle = -90, hjust = 0))

(График вывода не показан, поскольку он идентичен указанному в вопросе)

edit с указанным выше вариантом функции: 

my_theme3 <- function(...){
  list(
    theme_minimal() +
      theme(title = element_text(color = "gray25"),
            plot.subtitle = element_text(size=12),
            plot.title = element_text(size=12),
            plot.caption = element_text(color= "gray30"),
            ...) ,
    scale_fill_manual(values = x)
  )
}

# same plot as before
mpg %>% 
  ggplot() +
  geom_bar(aes(x = fct_infreq(class), fill=factor(cyl)), color="black", width = 0.5) +
  labs(title= "CK farver") +
  my_theme3() +
  theme(axis.text.x = element_text(angle = -90, hjust = 0))

# if you want to add other tweaks to the theme, e.g. red labels, different legend position
mpg %>% 
  ggplot() +
  geom_bar(aes(x = fct_infreq(class), fill=factor(cyl)), color="black", width = 0.5) +
  labs(title= "CK farver") +
  my_theme3(axis.text = element_text(color = "red"),
            legend.position = "bottom") +
  theme(axis.text.x = element_text(angle = -90, hjust = 0))
...