undo as.factor for few levels