Bar plots at genera level with absolute percentage difference between two groups in R

Question

[hafiz.talhamalik]

I am trying to create the following plot. I tried phyloseq and ggplots but just can't figure this out. if someone could help me

[benformatics]

you need to provide the initial data that you are working with as an example

[hafiz.talhamalik]

I am using the 16S data, OTUs, taxonomy and metadata. sample data can be loaded using the global patterns sample dataset.

library(phyloseq)
data(GlobalPatterns)