使用多个变量的 ggplot2 facet_wrap 的独立条形主题

Question

是否可以为 ggplot2 facet_wrap 中使用的每个变量设置独立的条形主题？

以这段代码为例：

p1 <- ggplot(mpg, aes(displ, hwy)) +
   geom_point() +
   facet_wrap(c("cyl", "drv"), labeller = "label_both")
plot(p1)

我希望上条（'cyl'）具有不同的主题 - 比如说，粗体。此外，我可能想让“drv”斜体并使用不同的字体类型和大小。我怎么能这样做？

我在想一些事情：

 p1 <- p1 + theme(strip.text.variable1 = element_text(face = 'bold'),
                  strip.text.variable2 = element_text(face = 'italic', size = 8)
                  )

很遗憾，我在文档或以前的问题中找不到类似的内容。

干杯

编辑：我把这个问题写得更笼统一些，以便对社区有进一步的帮助。

Answer 1

表面上你应该能够基于label_both 创建一个新函数来返回粗体标签，但到目前为止我的尝试已经以可怕的Error in variable[[i]] : subscript out of bounds 结束。

另一种方法是构建一个函数来制作您想要的标签。这很像this answer。在此函数中，您将前缀添加到变量的值并使其变为粗体。

make_labels = function(string, prefix = "cyl: ") {
    x = paste0(prefix, as.character(string))
    do.call(expression, lapply(x, function(y) bquote(bold(.(y)))))
}

现在在as_labeller 中为facet_wrap 中的“cyl”变量使用此函数。您想将as_labeller 中的默认标签器更改为label_parsed，以便正确解析表达式。其他变量使用label_both。

ggplot(mpg, aes(displ, hwy)) +
    geom_point() +
    facet_wrap(c("cyl", "drv"), 
               labeller = labeller(cyl = as_labeller(make_labels, default = label_parsed), 
                                   drv = label_both))