fct_drop function

Drop unused levels preserving label data