Create data_clean2.1.r