R 在ggplot的轴标题中添加标高

我想知道是否可以在R中使用ggplot2对轴标签进行分组并制作多个标高标签？我可以用Excel来做，但它很难看！ 实际上，我的代码如下（我正在制作一个堆叠条形图，以显示样本中细菌的相对比例）：

---

DF绘制微生物比例是一个常见的问题，因此已经提出了这个问题（并且得到了很好的回答）

该解决方案经过优化，可将您的所有值缩放到1，即100%（这对我作为生物学家来说很有意义）

在excel快照中，您的控件和薄膜之间有一个未标记的样本，它没有缩放到100%（这似乎很奇怪），但如果需要这样做，则只需向该特定样本添加一个虚拟值，并用与背景相同的颜色填充它。最后，您可以从Illustrator中的图例中删除该特定类，您可能需要清理图形。
绘制微生物比例是一个常见问题，因此已经提出了这个问题（并且回答得非常好）

该解决方案经过优化，可将您的所有值缩放到1，即100%（这对我作为生物学家来说很有意义）

在excel快照中，您的控件和薄膜之间有一个未标记的样本，它没有缩放到100%（这似乎很奇怪），但如果需要这样做，则只需向该特定样本添加一个虚拟值，并用与背景相同的颜色填充它。最后，您可以从Illustrator中的图例中删除该特定类，在该图例中，您可能需要清理图形。
您可以使用刻面来模拟此操作。您是否尝试过使用Tableau而不是Excel？在花费数小时“黑客”网格和ggplot之前，也许有一个值得一看的替代方案。或者，您可以使用Adobe Illustrator添加其他级别，也可以使用另一个选项的可能副本：将自定义的
表格放置在下方，甚至放置一个。（你会发现有很多这样的例子。）你可以用方面来模仿这一点。你试过Tableau而不是Excel吗？在花费数小时“黑客”网格和ggplot之前，也许有一个值得一看的替代方案。或者，您可以使用Adobe Illustrator添加其他级别，也可以使用另一个选项的可能副本：将自定义的
表格放置在下方，甚至放置一个。（你会发现很多这样的例子。）
DF <- read.table(text="taxon Bacteria1 Bacteria2 Bacteria3 [...]
Sample1 ...
Sample2 ...
Sample3 ...", header=TRUE)

library(reshape2)

DF1<-melt(DF, id.var="taxon")

library(ggplot2)
ggplot(DF1, aes(x = taxon, y = value, fill = variable)) +
  geom_bar(stat = "identity")