Update data_clean2.r

deal with "NA" in tag_type... first trial.