如何在 R 中创建具有辅助分组 x 轴的条形 plot？

Question

我希望在 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 中。

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

Answer 1

使用facet_wrap你最终可以得到一个类似的 plot 通过使用strip.position参数传递底部的构面标签并将它们添加到 plot 区域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")

它回答了你的问题吗？