r - 复制和修改默认主题

Question

我想为 ggplot 创建一个新主题这是基于 theme_bw() .

我想以下步骤是必要的(在伪代码中):

复制 theme_bw(): theme_new() <- theme_bw()

修改副本:theme_update(axis.title.x = theme_text(family = base_family, size = base_size, vjust = 0.5))

任何关于如何实现这一点的建议将不胜感激!

编辑: @Andrie，我根据我的需要修改了您的答案:

theme_new <- theme_set(theme_bw())
theme_new <- theme_update(axis.title.x = theme_text(family = base_family, size = base_size, vjust = 0.5))

但是，我收到以下错误:

ggplot(mtcars, aes(factor(cyl))) + geom_bar()

Error in match(gparname, names(gpars)) : object 'base_size' not found

编辑: 2017 年 10 月 31 日，@Andrie 提供的答案效果很好。
R 版本 3.4.1，ggplot2_2.2.1

Answer 1

wiki建议使用 modifyList 执行此操作的一种方法,

theme_new <- function (base_size = 12, base_family = "", ...){
 modifyList (theme_bw (base_size = base_size, base_family = base_family),
          list (axis.title.x = theme_text(family = base_family, 
                size = base_size, vjust = 0.5)))
}