Question

当我尝试使用ggplot2应用自定义主题时，会出现如下错误：

Error in FUN("text"[[1L]], ...) : 
  Theme element 'text' has NULL property: family, face, size, hjust, vjust, angle, lineheight

我想我必须错过一些基本的东西（我第一次尝试创建自定义主题）。该主题基于theme_bw()：

创建

theme_new <- function(base_size = 12, base_family = "Helvetica"){
    theme_bw(base_size = base_size, base_family = base_family) %+replace%
    theme(
        line = element_line(colour="black"),
        text = element_text(colour="black"),
        axis.title = element_text(size = 14),
        axis.text = element_text(colour="black", size=8),
        strip.text = element_text(size=12),
        legend.key=element_rect(colour=NA, fill =NA),
        panel.grid = element_blank(),   
        panel.border = element_rect(fill = NA, colour = "black", size=1),
        panel.background = element_rect(fill = "white", colour = "black"), 
        strip.background = element_rect(fill = NA)
        )
    }

然后尝试一下：

x＆lt; - rnorm（10）

theme_set（theme_new（））

qplot（x）的

得到上述错误！

然而：

theme_set（theme_bw（））

qplot（x）的

工作正常！

我想this stackoverflow post中描述的theme_update与使用theme_set（）更改默认主题不同。如果我们在这个小插图（http://docs.ggplot2.org/dev/vignettes/themes.html）中查看新的主题指南，我的理解是，一个人需要指定所有主题参数并使用complete=TRUE来说明这一点;或者使用%+replace%运算符向旧主题添加内容，例如theme_bw（）。不要得到它！

Answer 1

简要介绍http://docs.ggplot2.org/dev/vignettes/themes.html揭示

因此，当使用％+ replace％运算符创建新的主题函数时，您需要非常小心地替换继承层次结构顶部的主题元素，如text，line和rect。

...

请注意，theme_bw中替换的主题元素主要在theme_grey（）中具有NULL属性，因为后者中的大多数默认属性都是在元素rect，line和text中定义的，并传递给它们的子元素。％+ replace％运算符用于在theme（）中指定的所选元素中设置非NULL属性，并将所有未声明的属性设置为NULL。

因此，您应该评论包括line，text，rect在内的规范，因为它们已在父主题中定义：theme_bw和theme_grey

theme_new <- function(base_size = 12, base_family = "Helvetica"){
  theme_bw(base_size = base_size, base_family = base_family) %+replace%
    theme(
      #line = element_line(colour="black"),
      #text = element_text(colour="black"),
      axis.title = element_text(size = 14),
      #axis.text = element_text(colour="black", size=8),
      #strip.text = element_text(size=12),
      legend.key=element_rect(colour=NA, fill =NA),
      panel.grid = element_blank(),   
      panel.border = element_rect(fill = NA, colour = "black", size=1),
      panel.background = element_rect(fill = "white", colour = "black"), 
      strip.background = element_rect(fill = NA)
      )
}

qplot(x) + theme_new()生成以下图像，其中包含与字体相关的大量警告。 enter image description here

当在不同的机器上时，它几乎产生了我试过的没有任何警告的情节，所以我猜它有效！例如，http://www.cookbook-r.com/Graphs/Scatterplots_(ggplot2)/中的第二组图表被复制为 enter image description here

如何在R中使用ggplot2创建默认自定义主题

1 个答案: