您可以使用 apply ：

dat[c("A", "B", "C", "D", "E")] <- t(apply(dat[c("A", "B", "C", "D", "E")], 
                                           1, sort))

#        Date  A  B  C  D  E  H
# 1 1/28/2013  8 35 44 51 56 18
# 2 1/25/2013 23 28 38 39 56 32
# 3 1/21/2013 25 36 40 45 51  8

其中 dat 是数据框的名称。