如何使用`facet_nested`增加为facet标签创建的不同盒子之间的空间？

Question

我在下面有这样的情节：

library(ggplot2)
library(ggh4x) # remotes::install_github("teunbrand/ggh4x")

df1 <- data.frame(x = rep(1:12, times=4, each=1), 
                  y = rep((1:12)^2, times=4, each=1),
                  Variable1 = rep(c("A","B"), times=1, each=24),
                  Variable2 = rep(c("C","D"), times=4, each=12))


g<-ggplot(df1, aes(x=x, y=y)) + 
  geom_point(size=1.5) + 
  theme(strip.background = element_rect(colour = "black", fill = "white", 
                                        size = 1.5, linetype = "solid"),
        axis.title.x =element_text(margin = margin(t = 2, r = 20, b = 0, l = 0),size = 16),
        axis.title.y =element_text(margin = margin(t = 2, r = 20, b = 0, l = 0),size = 16),
        axis.text.x = element_text(angle = 0, hjust = 0.5,size = 14),
        axis.text.y = element_text(angle = 0, hjust = 0.5,size = 14),
        strip.text.x = element_text(size = 14),
        strip.text.y = element_text(size = 13),
        axis.line = element_line(),
        panel.grid.major= element_blank(),
        panel.grid.minor = element_blank(),
        legend.text=element_text(size=15),
        legend.title = element_text(size=15,face="bold"),
        legend.key=element_blank(),
        legend.position = "right",
        panel.border = element_blank(),
        strip.placement = "outside",
        strip.switch.pad.grid = unit('0.25', "cm")) + 
  facet_nested( .~Variable1 + Variable2)

g

如何为不同的方面标签增加不同盒子之间的空间？因此，例如，我想增加A和C/D之间的空间。在这篇文章中，说明了如何更改绘图边缘与构面标签之间的距离（使用strip.switch.pad.grid中的theme），但是无法在其中分离构面框的情况下使用。

有人知道怎么做吗？

Answer 1

ggplot2和ggh4x没有将小平面条分开放置的选项。但是，这并不意味着它不能完成：它只是意味着解决方案比您想要的更丑陋。因为您必须深入到ggplot下的gtable / grid结构。