How to add sample number to stacked barchart and check significance in R?

Question

I have a dataframe df that looks like below:

df <- structure(list(Samples = c("sample1", "sample2", "sample3", &