Create data_clean1.r

change longitutue into city and predict NA in source