df = read.csv('2018-08-22_MEH Freq List.csv', fileEncoding="UTF-8-BOM", quote='"', stringsAsFactors = F, sep=",", na.strings='NULL') write.csv(df[with(df, order(-ObservationPct)), ], 'Freq List Sorted.csv', row.names=F, na='')