如何在 R 中创建具有次要分组 x 轴的条形图？答案

【问题标题】：How to create a bar plot with a secondary grouped x-axis in R?如何在 R 中创建具有次要分组 x 轴的条形图？
【发布时间】：2020-04-02 22:15:55
【问题描述】：

我希望在 R 中使用 ggplot 重新创建以下条形图，但到目前为止我没有运气（请忽略白线，我不得不删除确切的数据）：

我的数据安排如下，我认为这是合适的：

figure_1 <- tribble(
          ~"ResponseOption", ~"StimuliFormat", ~"rfg", ~"emmean", ~"SE",
          "RF_Ratings", "Picture", "Recollection", 2, 0.03,
          "RFBG", "Picture", "Recollection", 1, 0.03,
          "RFG", "Picture", "Recollection", 7, 0.03,
          "RF_Ratings", "Word", "Recollection", 04, 0.03,
          "RFBG", "Word", "Recollection", 3, 0.03,
          "RFG", "Word", "Recollection", 5, 0.03,
          "RF_Ratings", "Picture", "Familiarity", 2, 0.03,
          "RFBG", "Picture", "Familiarity", 1, 0.03,
          "RFG", "Picture", "Familiarity", 7, 0.03,
          "RF_Ratings", "Word", "Familiarity", 04, 0.03,
          "RFBG", "Word", "Familiarity", 3, 0.03,
          "RFG", "Word", "Familiarity", 5, 0.03,
          "RF_Ratings", "Picture", "Guessing", 2, 0.03,
          "RFBG", "Picture", "Guessing", 1, 0.03,
          "RFG", "Picture", "Guessing", 7, 0.03,
          "RF_Ratings", "Word", "Guessing", 04, 0.03,
          "RFBG", "Word", "Guessing", 3, 0.03,
          "RFG", "Word", "Guessing", 5, 0.03)

但我不知道如何在 x 轴上有 2 个分组变量（文字/图片 + RFG/RFBG/RFRatings）。我可以制作 3 个单独的条形图并以某种方式（？）将它们连接在一起，但我正在寻找一个更优雅的解决方案，我可以将两个 x 轴分组变量输入到 ggplot 中。

任何帮助或指导将不胜感激！

【问题讨论】：

标签： r ggplot2 graph charts tidyverse

【解决方案1】：

使用facet_wrap，您最终可以通过使用strip.position 参数传递底部的构面标签并使用strip.placement = "outside" 将它们添加到绘图区域之外来获得类似的绘图：

ggplot(figure_1, aes(x = StimuliFormat, y = emmean, fill = rfg))+
  geom_col(position = position_dodge())+
  geom_errorbar(aes(ymin = emmean-SE, ymax = emmean+SE), width  =0.2, position = position_dodge(0.9))+
  facet_wrap(~ResponseOption, strip.position = "bottom")+
  theme_classic()+
  theme(strip.placement = "outside")+
  labs(x = "", y = "Proportion of hits")

它回答了你的问题吗？

【讨论】：

太棒了，这正是我想要的。非常感谢！