绘制具有多个组的条形图

Posted 2023-02-16

【中文标题】绘制具有多个组的条形图

【英文标题】：Plotting a bar chart with multiple groups

【发布时间】：2022-01-09 14:59:25

【问题描述】：

我有一个按治疗状态和分类变量df %>% group_by(treatment, categorical_var) %>% summarise(n=n()) 划分的数据框组，我正在尝试使用 ggplot 获得与图片中所示类似的条形图，其中我的 y 轴将由我的 $n$ 确定变量和我的 x 轴将由我的 $categorical_var$

如图所示，我基本上是在尝试将两个条形图合并到同一个图中，一个用于对照组，另一个用于治疗组。有关如何执行此操作的任何帮助？

这是一个可重现的例子

example <- tribble(
  ~treatment, ~categorical_var, ~n,
  "control",            "1",    10,
  "control",            "2",    12,
  "control",            "3",     7,
  "treatment",          "1",     14,
  "treatment",          "2",     5,
  "treatment",          "3",     11,
)


ggplot(example, aes(categorical_var, n)) + 
  geom_bar(position="dodge",stat="identity") + facet_wrap(~treatment)

这是我得到的putput，我怎样才能改变样式以获得像上面图片一样的东西？

【问题讨论】：

为了帮助我们，您介意分享a minimal reproducible example，包括您的数据、您尝试的代码和您使用的包的sn-p吗？

... 这表示：使用ggplot2 这可以通过刻面轻松实现。参见例如***.com/questions/13162489/…

我用我的代码@stefan添加了一个可重现的例子

这能回答你的问题吗？ ggplot multiple grouping bar

相关帖子有几个选项：Axis labels on two lines with nested x variables (year below months)

【参考方案1】：

样式设计总是涉及一些摆弄和试验（有时还会出现错误 (;)。但通常您可能会非常接近您想要的结果，如下所示：

library(ggplot2)

ggplot(example, aes(categorical_var, n)) + 
  geom_bar(position="dodge",stat="identity") + 
  # Add some more space between groups
  scale_x_discrete(expand = expansion(add = .9)) +
  # Make axis start at zero
  scale_y_continuous(expand = expansion(mult = c(0, .05))) +
  # Put facet label to bottom 
  facet_wrap(~treatment, strip.position = "bottom") +
  theme_minimal() +
  # Styling via various theme options
  theme(panel.spacing.x = unit(0, "pt"), 
        strip.placement = "outside", 
        strip.background.x = element_blank(),
        axis.line.x = element_line(size = .1),
        panel.grid.major.y = element_line(linetype = "dotted"),
        panel.grid.major.x = element_blank(),
        panel.grid.minor = element_blank())