hsb2 <- read.table('http://www.ats.ucla.edu/stat/R/faq/hsb2.csv', header=T, sep=",")
hsb2[1:10, ] id female race ses schtyp prog read write math science socst 1 70 0 4 1 1 1 57 52 41 47 57 2 121 1 4 2 1 3 68 59 53 63 61 3 86 0 4 3 1 1 44 33 54 58 31 4 141 0 4 3 1 3 63 44 47 53 56 5 172 0 4 2 1 2 47 52 57 53 61 6 113 0 4 2 1 2 44 52 51 63 61 7 50 0 3 2 1 1 50 59 42 53 61 8 11 0 1 2 1 2 34 46 45 39 36 9 84 0 4 2 1 1 63 57 54 58 51 10 48 0 3 2 1 2 57 55 52 50 51
sort1.hsb2 <- hsb2[order(read), ] sort1.hsb2[1:15, ] id female race ses schtyp prog read write math science socst 141 19 1 1 1 1 1 28 46 43 44 51 79 164 0 4 2 1 3 31 36 46 39 46 8 11 0 1 2 1 2 34 46 45 39 36 26 53 0 3 2 1 3 34 37 46 39 31 64 108 0 4 2 1 1 34 33 41 36 36 88 117 0 4 3 1 3 34 49 39 42 56 99 1 1 1 1 1 3 34 44 40 39 41 130 45 1 3 1 1 3 34 35 41 29 26 108 89 1 4 1 1 3 35 35 40 51 33 82 165 0 4 1 1 3 36 49 54 61 36 116 106 1 4 2 1 3 36 44 37 42 41 192 175 1 4 3 2 1 36 57 42 50 41 25 12 0 1 2 1 3 37 44 45 39 46 57 67 0 4 1 1 3 37 37 42 33 32 40 153 0 4 2 1 3 39 31 40 39 51
source: http://www.ats.ucla.edu/stat/r/faq/sort.htm