Update R code - Part #2

got the dataset to get rid of NA but can order the dataset.