r - ggplot2 中两个网格的带有 facet_grid 的两行数学表达式标签

Question

我想在两行 facet_grid 中为两个网格添加带有数学表达式的标签(参见 MWE)。我可以在一行中得到它，想知道在两行中得到(Beta 在一行中，Gamma 在第二张图中的第二行中)。

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 之上(无水平条)”