Remove x-axis labels with independent = "x" if they are identical about ggh4x HOT 4 OPEN

Hi there, thanks for the report! Could you give a minimal reprocible example? At the time of writing, I'm too tired to go through the source code of comp_barplot() to see where the problem might originate.

from ggh4x.

Thank your for your fast reply!

So here are my example sample_data, taxa_table and otu_table.

inf_test.csv
tax_test.csv
otu_test.csv

I have created the phyloseq object and the taxonomy representation as follows:

phy.info <- sample_data(inf)
phy.otu <- otu_table(t(otu), taxa_are_rows=T)
phy.taxonomy <- tax_table(as.matrix(tax))
phy <- phyloseq(phy.otu, phy.taxonomy, phy.info)

comp_barplot(phy, tax_level = "Phylum", n_taxa = 11, label = "inf.sample_short", sample_order = sample_names(phy)) +
facet_grid2(inf.id ~ inf.racon, scales = "free") +
theme_bw() +
theme(panel.grid.major = element_blank(),
axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1),
axis.title.y = element_text(size = 10, vjust = 3, face = "plain")) +
guides(col = FALSE, shape = guide_legend(override.aes = list(size = 2.5)))

from ggh4x.