bar_plot.Rd
Return a bar plot of the samples
bar_plot(ta, n = 12, x = sample_clustered, geom_bar = T)