R中的排序问题

问题

你想将一个向量，矩阵或列表排序

解决

向量

  1. # 生成一个随机向量
  2. v <- sample(101:110)
  4. # 排序
  5. sort(v)
  6. #>  [1] 101 102 103 104 105 106 107 108 109 110
  8. # 反向排序
  9. sort(v, decreasing=TRUE)
  10. #>  [1] 110 109 108 107 106 105 104 103 102 101

列表

列表在一个或多个列进行排序，您可以使用plyr包里的arrange函数，或者使用R内置的功能。arrange函数更容易使用，但需要外部安装包。

  1. # 生成一个列表
  2. df <- data.frame (id=1:4,
  3.             weight=c(20,27,24,22),
  4.             size=c("small", "large", "medium", "large"))
  5. df
  7. library(plyr)
  9. # "weight"列排序，他们有相同的结果.
  10. arrange(df, weight)       # 使用plyr包里的arrange函数
  11. df[ order(df$weight), ]   # 使用R内置的功能
  12. #>   id weight   size
  13. #> 1  1     20  small
  14. #> 2  4     22  large
  15. #> 3  3     24 medium
  16. #> 4  2     27  large
  18. # 以size为第一关键词, weight为第二关键词排序
  19. arrange(df, size, weight)         # 使用plyr包里的arrange函数
  20. df[ order(df$size, df$weight), ]  # 使用R内置的功能
  21. #>   id weight   size
  22. #> 4  4     22  large
  23. #> 2  2     27  large
  24. #> 3  3     24 medium
  25. #> 1  1     20  small
  27. # 所有列从左到右排序
  28. df[ do.call(order, as.list(df)), ] 
  29. # 在这个特殊的例子中,顺序将保持不变

请注意，size列是一个把行排序的因子。在这种情况下，横向将自动按字母顺序排列（创建数据表格），所以大是第一和小是最后。

反向排序

使用decreasing=TRUE可以反向排序。

反向排序的方法依赖于数据类型：

  • 数字：变量名前加一个-。例如：df[order(-df$weight)]
  • 因子：转换为整数，变量名前加一个-。例如：df[ order(-xtfrm(df$size)), ]
  • 字符：没有简单的方法能做到这一点。一种方法是先转换为一个因子，然后如上所述。
  1. # 反向排序weight列，他们有相同的结果：
  2. arrange(df, -weight)                      # 使用plyr包里的arrange函数
  3. df[ order(df$weight, decreasing=TRUE), ]  # 使用R内置的功能
  4. df[ order(-df$weight), ]                  # 使用R内置的功能
  5. #>   id weight   size
  6. #> 2  2     27  large
  7. #> 3  3     24 medium
  8. #> 4  4     22  large
  9. #> 1  1     20  small
  11. # 升序排列size,然后降序排列weight
  12. arrange(df, size, -weight)         # 使用plyr包里的arrange函数
  13. df[ order(df$size, -df$weight), ]  # 使用R内置的功能
  14. #>   id weight   size
  15. #> 2  2     27  large
  16. #> 4  4     22  large
  17. #> 3  3     24 medium
  18. #> 1  1     20  small
  20. # 升序排列size,然后降序排列weight
  21. # 因子需要xtfrm()
  22. arrange(df, -xtfrm(size), weight)         # 使用plyr包里的arrange函数
  23. df[ order(-xtfrm(df$size), df$weight), ]  # 使用R内置的功能
  24. #>   id weight   size
  25. #> 1  1     20  small
  26. #> 3  3     24 medium
  27. #> 4  4     22  large
  28. #> 2  2     27  large

原文链接：http://www.cookbook-r.com/Manipulating_data/Sorting/