ggplot中的上级标签？

Question

问：如何在ggplot的构面上获得上级的条形标签？

背景

我有一个2x2x2设计的实验。我可以得到基本的 通过将第一组的级别分配给x进行绘图，并 创建具有第二和第三组水平的构面。

示例

这是一个玩具示例，其绘制结果如下：

Test <-
    data.frame(result = 1:8,
               group1 = rep(c(FALSE, TRUE), 4),
               group2 = rep(c(FALSE, TRUE), each = 2, times = 2),
               group3 = rep(c(FALSE, TRUE), each = 4))

ggplot(Test,
       aes(x = group1,
           y = result)) +
    geom_point() +
    coord_flip() +
    facet_grid(group2 ~ group3) +
    theme_bw() +
    theme(strip.background = element_blank(),
          panel.border     = element_rect(color = "black"))

问题：上级构面标签？

我想在条形上方创建条形以标记第二个和 第三组，在玩具区中未标记。我不确定 如何用口头表达这一点，所以我用 显示我的意思的金手指：

是的，我知道我可以将数据框中的因素标记为某种东西 像

• c("Group 2 No", "Group 2 Yes")和
• c("Group 3 No", "Group 3 Yes")。

我不愿意这样做，因为它会使多余的信息变得混乱。