for (i in 2:n){new.data = read_xlsx(dir[i])merged_data = merge(merged_data,new.data,by = "Reference Key", all=TRUE)}final_data = merge(basic_data,merged_data,by = "Reference Key", all.x=TRUE)