r - 有没有办法调整牛图对象的主题？

Question

我可以更改组合情节的主题吗？

例子：

library(ggplot2)
library(cowplot)
p1 = ggplot(diamonds, aes(x = price)) + geom_histogram(bins = 30)
p2 = ggplot(diamonds, aes(x = table)) + geom_histogram(bins = 30)
p = cowplot::plot_grid(p1,p2)

这有效：

p1 + theme_bw()

这不起作用：

p + theme_bw()

标签： rggplot2cowplot

Answer 1

最简洁的答案是不”。

您在cowplot 中看到的地块已经被渲染为grobs。它们没有您可以更改的主题元素。从理论上讲，您可以“进入”埋在 p 结构中的 grobs 并一次更改单个 grobs，但这很困难、混乱且不可靠。

作为一个展示它有多么棘手的练习，下面是你将如何p变成一个theme_bw外观：

p

p$layers <- lapply(p$layers, function(x) {
  y <- x$geom_params[[1]][[1]][[6]][[4]][[1]][[4]]
  y[[1]][[9]]$fill <- "white"
  y[[1]][[9]]$col <- "black"
  y[[4]][[7]]$col <- "gray90"
  y[[5]][[7]]$col <- "gray90"
  y[[2]][[7]]$col <- "gray90"
  y[[3]][[7]]$col <- "gray90"
  x$geom_params[[1]][[1]][[6]][[4]][[1]][[4]] <- y
  x
})

p