ggplot2의 두 격자에 대해 facet_grid와 함께 두 줄의 수식을 사용하여 레이블을 지정하십시오.

Question

두 줄의 수식을 레이블 facet_grid 두 줄로 추가하고 싶습니다 (MWE 참조). 나는 그것을 한 줄로 얻을 수 있는데 두 줄로 나눠서 (한 줄에는 베타, 두 번째 줄에는 두 번째 줄의 감마) 들어간다.

library(ggplot2) 

p1 <- ggplot(mtcars, aes(x = mpg, y = wt)) + geom_point() 

p1 + facet_grid(
    facets = gear ~ vs + am 
    , labeller = label_both 
) 

p1 + facet_grid(
    facets = gear ~ vs + am 
    , labeller = 
     label_bquote(
     rows = alpha:.(gear) 
     , cols = list(beta:.(vs), gamma:.(am)) 
    ) 
    ) 

Answer 1

당신은 atop() 대신 list() 사용할 수 있습니다

library(ggplot2) 
ggplot(mtcars, aes(mpg, wt)) + 
    geom_point() + 
    facet_grid(gear ~ vs + am, 
     labeller = label_bquote(
      rows = alpha:.(gear), 
      cols = atop(beta:.(vs), gamma:.(am)))) 

atop()은 "x 위에 y (가로 막대 없음)"를 넣는 무차별 대입 방식입니다.