두 개의 인접한 패널에 패싯 스트립을 결합하려고합니다 (항상 동일한 첫 번째 ID 변수를 가진 두 개의 인접한 패널이 있지만 두 개의 다른 시나리오에서는 "A"와 "B"라고 부릅니다). 나는 내가 시도한 gtable+ grid솔루션에 특별히 집착 하지는 않았지만 슬프게도 패키지 facet_nested()에서 사용할 수 없습니다 ggh4x(여러 제한이 있고 종속성이 필요하기 때문에 회사 서버에 설치할 수 없습니다-관련 코드 만 사용하여 살펴 보았습니다. , 그러나 종속성으로 인해 쉽지 않습니다.)

상단 패싯 스트립을 결합하여 "함께 속한"패널을 표시하여 읽기 쉽게 만들고 싶은 기본 플롯의 최소 실행 가능한 예는 다음과 같습니다.

library(tidyverse)
library(gtable)
library(grid)

idx = 1:16

p1 = expand_grid(id=idx, id2=c("A", "B"), x=1:10) %>%
  mutate(y=rnorm(n=n())) %>%
  ggplot(aes(x=x,y=y)) +
  geom_jitter() +
  facet_wrap(~id + id2, nrow = 4, ncol=8)

"1"이있는 스트립, "2"가있는 스트립 등을 결합해야합니다 (실제로는 텍스트가 다소 길지만 설명을위한 것입니다). 비슷한 시나리오 ( https://stackoverflow.com/a/40316170/7744356- 다시 찾은 @markus에게 감사드립니다)에 대한 답변을 수정하려고 했지만 이것이 제가 시도한 것입니다. 아래에서 볼 수 있듯이 내가 생산하는 높이가 잘못된 것 같습니다. 나는 이것이 내가 간과하거나 이해하지 못하는 사소한 일이라고 가정합니다.

# Combine strips for a ID
g <- ggplot_gtable(ggplot_build(p1))
strip <- gtable_filter(g, "strip-t", trim = FALSE)
stript <- which(grepl('strip-t', g$layout$name))
  
stript2 = stript[idx*2-1]
top <- strip$layout$t[idx*2-1]
# # Using the $b below instead of b = top[i]+1, also seems  not to work
#bot <- strip$layout$b[idx*2-1] 
l   <- strip$layout$l[idx*2-1]
r   <- strip$layout$r[idx*2]
  
mat   <- matrix(vector("list",
                       length = length(idx)*3),
                nrow = length(idx))
mat[] <- list(zeroGrob())

res <- gtable_matrix("toprow", mat,
                     unit(c(1, 0, 1), "null"),
                     unit( rep(1, length(idx)),
                           "null"))

for (i in 1:length(stript2)){
  if (i==1){
    zz <- res %>% 
      gtable_add_grob(g$grobs[[stript2[i]]]$grobs[[1]], 1, 1, 1, 3) %>%
      gtable_add_grob(g, ., 
                      t = top[i],  
                      l = l[i],  
                      b = top[i]+1,  
                      r = r[i], 
                      name = c("add-strip")) 
  } else {
    zz <- res %>% 
      gtable_add_grob(g$grobs[[stript2[i]]]$grobs[[1]], 1, 1, 1, 3) %>%
      gtable_add_grob(zz, ., 
                      t = top[i],  
                      l = l[i],  
                      b = top[i]+1,  
                      r = r[i], 
                      name = c("add-strip"))
  } 
}

grid::grid.draw(zz)

------------ ggh4x 구현으로 업데이트 -----------------

This may solve this type of problem for many, but has its downsides (e.g. axes alignment across rows gets a bit manual, probably need to manually remove x-axes and ensure the limits are the same, add a unified y-axis label, requires installation of a package from github: devtools::install_github("teunbrand/[email protected]") for a specific version, plus cowplot interacts badly with e.g. ggtern). So I'd love it, if someone still managed to do a pure gtable + grid version.

library(tidyverse)
library(ggh4x)
library(cowplot)

plots = expand_grid(id=idx, id2=c("A", "B"), x=1:10) %>%
  mutate(y=rnorm(n=n()),
         plotrow=(id-1)%/%4+1) %>%
  group_by(plotrow) %>%
  group_map( ~ ggplot(data=.,
                      aes(x=x,y=y)) +
               geom_jitter() +
               facet_nested( ~ id + id2, ))
            
plot_grid(plotlist = plots, nrow = 4, ncol=1)