NAtoCategory function

Change NAs in a factor into a category