3

我有一个主题函数，我想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))

由reprex 包（v0.2.0）于 2019 年 4 月 16 日创建。

4

1 回答 1

3

除非您打算将其他主题规范传递给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))

（未显示输出图，因为它与问题中的图相同）

使用上述功能版本进行编辑：

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))
于 2019-04-16T09:43:14.267 回答