Create data_clean2.2.r