在包中保存自己的ggplot主题并记录它

Question

我在ggplot上进行了一些自定义更改，当我创建图形时，我一直在做。我想在我的包中提供这个主题，我不知道如何保存和记录它。它不是数据集，也不是函数。这样做的首选方式是什么？

my_theme <- theme_bw() + theme(plot.title=element_text(vjust=1))
ggplot(mtcars, aes(mpg,cyl)) + geom_point() + ggtitle('test') + my_theme

所以我想在文档中添加my_theme。

Answer 1

我刚刚通过theme_bw看到我能​​以同样的方式做到这一点：

my_theme <- function (base_size = 12, base_family = "") {
  theme_bw(base_size = base_size, base_family = base_family) %+replace% 
    theme(plot.title=element_text(vjust=1))
}

ggplot(mtcars, aes(mpg,cyl)) + geom_point() + ggtitle('test') + my_theme()

通过这种方式，我可以记录我的功能......