Preserve factor level order when creating sample_data

I just started using phyloseq and it is great! However, I was slightly annoyed that sample_data() changed the ordering of the factor levels. These play important role in drawing plots with ggplot2, so I decided to create a quick fix for the problem. There I drop unused levels but the order of remaining ones stays the same.