我想用分面网格内的分组创建一个堆叠的条形图。 我的数据如下所示：
| 样品 | 主题 | 分期 | 物种 | 丰度% |
|---|---|---|---|---|
| 样本1 | 1 | 补丁 | A | 100 |
| sample2 | 1 | 牌匾 | B | 50 |
| sample2 | 1 | 牌匾 | A | 50 |
| sample3 | 1 | 非病变 | C | 100 |
| sample4 | 1 | 非病变 | A | 100 |
| sample5 | 2 | 补丁 | A | 100 |
| sample6 | 2 | 补丁 | B | 100 |
| sample7 | 2 | 非病变 | C | 100 |
| sample8 | 2 | 非神经性 | A | 100 |
我已经使用以下代码创建了 his stacked barplot with facet_grid：
mdf = read.tsv("XXX.tsv")
p = ggplot(mdf, aes_string(x = "Sample", y = "Abundance", fill = "Species")
p = p + geom_bar(stat = "identity", position = "stack", color = "black")
p = p + theme(axis.text.x = element_text(angle = -90, hjust = 0))
p = p + facet_grid(~staging, scales = "free")
p
现在我想将每个样本的条形重新组织到 facet_grid 中的相应主题，以实现更好的概览。例如，使用上面的例子，样本 3 和样本 4 属于受试者 1，并且样本 7 和样本 8 应归入同一方面的受试者 2，因此应在“非病变”方面归为一组。
我尝试了几次，但没有弄清楚如何实现这一点。