如何实现ggplot堆叠条形图嵌套X轴分组及自由刻度分面？

我正尝试优化图表可视化效果，将堆叠条形图的X轴拆分为样本的嵌套子类别。但由于已使用pivot_longer()纳入6种输出，无法借助ggplot的fill参数实现该嵌套。同时需支持通过facet_wrap()的自由刻度视图，查看单个蛋白组分的趋势。

图表对比 #

• 当前图表：
• 期望图表：
• 尝试效果：

数据结构 #

> head(data)
>  ShortName  Mod Growth Day    Group        Conc
>1  CTRL_D02 CTRL     CC   2 Protein1 0.013072917
>2  CTRL_D02 CTRL     CC   2 Protein2 0.000000000
>3  CTRL_D02 CTRL     CC   2 Protein3 0.004661458
>4  CTRL_D02 CTRL     CC   2 Protein4 0.000000000
>5  CTRL_D02 CTRL     CC   2 Protein5 0.000000000
>6  CTRL_D02 CTRL     CC   2 Protein6 0.025885417

> CC <- data %>% slice(1:144)
> LG <- data %>% slice(145:210)

现有代码 #

查看所有蛋白总量的堆叠条形图 #

p0 <- ggplot(CC) + 
  geom_col(aes(x = ShortName, y = Conc, fill = Group)) + 
  theme_clean() + 
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)) + 
  labs(y = "Concentration", x = "Sample", fill = "Composition")

查看单个蛋白组分趋势的分面图 #

p0.1 <- p0 + 
  facet_wrap(. ~ Group, scales = "free_y") + 
  theme(legend.position="none")

内容的提问来源于stack exchange，提问作者mellifluous