Comment trier une matrice par toutes les colonnes

Supposons que j'ai

arr = 2 1 3
      1 2 3
      1 1 2

Comment puis-je régler ce dans le ci-dessous?

arr = 1 1 2
      1 2 3
      2 1 3

C'est, d'abord par une colonne, puis par colonne deux etc.

source d'informationauteur Karthick

  1. 16

    Ce serait le travail:

    arr[do.call(order, lapply(1:NCOL(arr), function(i) arr[, i])), ]

    Ce qu'elle fait:

    arr[order(arr[, 1], arr[, 2], arr[ , 3]), ]

    sauf qu'il permet à un nombre quelconque de colonnes de la matrice.

  2. 20

    La fonction que vous êtes après est order (comment je suis arrivé à cette conclusion, ma première pensée fut: "eh bien, tri, que pensez sort?". Essayé sort(arr) qui ressemble à des sortes arr comme un vecteur de la place de la ligne sage. En regardant ?sortje vois dans le "Voir Aussi: order pour le tri ou la réorganisation de plusieurs variables.").

    Regardant ?orderje vois que order(x,y,z, ...) sera de l'ordre par xla rupture des liens par yen rupture plus de liens par zet ainsi de suite. Grand - tout ce que j'ai à faire est de passer dans chaque colonne de arr à order pour ce faire. (Il y a même un exemple dans la section exemples de ?order):

    order( arr[,1], arr[,2], arr[,3] ) 
# gives 3 2 1: row 3 first, then row 2, then row 1.
# Hence:
arr[ order( arr[,1], arr[,2], arr[,3] ), ]
#     [,1] [,2] [,3]
#[1,]    1    1    2
#[2,]    1    2    3
#[3,]    2    1    3

    Grande!

    Mais c'est un peu ennuyeux que j'ai à écrire arr[,i] pour chaque colonne dans arr - ce que si je ne sais pas combien de colonnes qu'il a à l'avance?

    Bien, les exemples montrent comment vous pouvez le faire aussi: à l'aide de do.call. Fondamentalement, vous n':

    do.call( order, args )

    où args est un liste des arguments en order. Donc, si vous pouvez faire une liste de chaque colonne de arr ensuite, vous pouvez l'utiliser comme args.

    Une façon de le faire est de convertir arr dans un bloc de données, puis dans une liste, ce seront automatiquement mis une colonne par élément de la liste:

    arr[ do.call( order, as.list(as.data.frame(arr)) ), ]

    La as.list(as.data.frame est un peu encombrants - il y a certainement d'autres façons de créer une liste, de sorte que list[[i]] est le ième colonne de arrmais c'est juste une.

  3. 1

    J'ai écrit ce petit func qui n'en ordre décroissant ainsi
    cols permet de choisir les colonnes à l'ordre et leur ordre

    ord.mat = function(M, decr = F, cols = NULL){
    if(is.null(cols))
      cols = 1: ncol(M)
    out = do.call( "order", as.data.frame(M[,cols]))
    if (decr)
      out = rev(out)
    return(M[out,])
}
  4. 1

    J'ai eu un problème similaire, et la solution semble simple et élégant:

    t(apply(t(yourMatrix),2,sort))