Discussion :

[Enriac]

Bonjour,

Je souhaiterai savoir si c'était possible de classer un vecteur avec un autre vecteur.

L'exemple suivant seras plus parlant:

> x
[1] 13 5 13 3 6 12 15 14 11 15 7 7 11 15 16 14 3 5 9 7 10 10 2 12 14 8 13 16 7 4 5 6 13 9 12
[36] 9 5 13 8 15 7 11 3 8 13 10 3 5 1 8 3 16 9 13 13 11 2 14 11 16 11 7 11 14 16 16 9 4 4 1
[71] 14 2 2 10 10 16 10 8 11 16 7 7 7 12 1 7 11 15 12 11 9 6 3 9 1 8 4 5 5 7

> order.couple
[1] 9 1 2 4 14 3 16 15 7 12 10 11 8 13 5 6

Voici mes deux variables, j'aimerai donc pouvoir obtenir un vecteur x qui aurais tout les 9 en première position, puis les 1 etc...

J'ai essayer order , sort et sort.list mais en vain :s

J'avais aussi l'idée de remplacer les 9 par un 1, les 1 par 2 etc... mais en vain (la fonction replace montre vite ces limites)

Merci de votre attention.

[Guinue]

Bonsoir,

Alors avec des objets appelés az (le grand vecteur) et bz (le petit qui définit l'ordre) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
az
  [1] 12  7 14 13 12 16  1  4  1 14 11 12  2 12  2 14  3  5  5  7  8  8 10  5 14 16 14  9
 [29]  2  6 10  2  9  7 15  9 16 15  9 13  2 13 15 10  1 12  9 12  1 11 13  5 10 12  4 15
 [57]  5  2  5  8 14  3  4  6 13  9  1 16  8 12  5  3 16  9  3  4 11 15  3 12  4 12 11  1
 [85] 15  3  5 14 11  5 11  1 15 11  1  9  6  7 16  3
 
 bz
 [1] 13  5 14  9 11 16 15 10  1  4  6 12  2  3  7  8

Le principe serait ça, si j'ai bien compris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
az[which(az==bz[1])]
[1] 13 13 13 13 13

Ca pourrait se faire avec une boucle for() mais comme en R qui dit boucle for() dit apply() (ou sapply() en l'occurence) ça devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
cz <- sapply(bz,function(x)res <- which(az==x))
resultat <- az[unlist(cz)]

ou encore, en une ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
resultat <- az[unlist(sapply(bz,function(x)res <- which(az==x)))]
 resultat
  [1] 13 13 13 13 13  5  5  5  5  5  5  5  5  5 14 14 14 14 14 14 14  9  9  9  9  9  9  9
 [29]  9 11 11 11 11 11 11 11 16 16 16 16 16 16 15 15 15 15 15 15 15 10 10 10 10  1  1  1
 [57]  1  1  1  1  1  4  4  4  4  4  6  6  6 12 12 12 12 12 12 12 12 12 12  2  2  2  2  2
 [85]  2  3  3  3  3  3  3  3  7  7  7  7  8  8  8  8

N'hésite pas si je n'ai pas bien compris la question, mais quoi qu'il en soit, au plaisir !

[Enriac]

C'est exactement ça.

Maintenant est-il possible de reproduire cela avec une colonne de matrice pour ordonner les lignes de celle-ci ?

Exemple

> mtx
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,] 1 2 15 8 6 14 9 15 15 13
[2,] 1 8 15 1 2 14 12 13 15 12
[3,] 7 10 2 11 14 13 9 13 9 2
[4,] 3 6 1 12 8 5 9 9 13 15
[5,] 8 3 11 13 2 15 12 3 14 4
[6,] 6 6 1 1 5 10 3 4 8 3
[7,] 11 15 7 3 13 7 4 4 8 3
[8,] 4 3 12 4 14 14 11 14 15 7
[9,] 2 5 6 12 10 12 10 8 3 2
[10,] 12 15 7 12 2 3 14 10 5 9

Qu'on range toute les ligne par rapport a la colonne 10 suivant aussi un vecteur

[Guinue]

Bonjour,

Eh bien oui c'est possible!
Avec mat la matrice dont on doit ranger les lignes pour que les valeurs de la colonne 10 soient dans le même ordre que dans le vecteur bz, ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
mat <- matrix(sample(c(1:16),100,replace=T),nrow=10, ncol=10)
bz <- sample(c(1:16),16,replace=F)
 
mat
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    3   14   16    9    5    1   11    5    6     7
 [2,]    5    9   15   12    2   16   15   14    7     9
 [3,]    5    2    9    1    5    8    3   11   16     2
 [4,]    7    6   13   11    8   12   12    5    3     8
 [5,]    8   10    2   13   14    5    4   11   13    14
 [6,]    8    2   13    5    3    3   12    1    5    15
 [7,]   10    9   15   10    4   16   11   15   16     8
 [8,]    5    7   10   12    6    9    1   11   11    14
 [9,]   14   15    1    4   13    3   15    1   15    10
[10,]   16    9   12   15    9    4    3    9   13    13
 
> bz
 [1]  4  8  7 15 11  3 10  1  5 12 14 16 13  2  9  6

De la même façon qu'hier, on récupère la position des valeurs de bz dans la 10ème colonne (on remplace juste az par mat[,10]):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resultat <- unlist(sapply(bz,function(x)res <- which(mat[,10]==x)))

Puis on trie la matrice :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
mat_bis <- mat[resultat,]
 
mat_bis
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    7    6   13   11    8   12   12    5    3     8
 [2,]   10    9   15   10    4   16   11   15   16     8
 [3,]    3   14   16    9    5    1   11    5    6     7
 [4,]    8    2   13    5    3    3   12    1    5    15
 [5,]   14   15    1    4   13    3   15    1   15    10
 [6,]    8   10    2   13   14    5    4   11   13    14
 [7,]    5    7   10   12    6    9    1   11   11    14
 [8,]   16    9   12   15    9    4    3    9   13    13
 [9,]    5    2    9    1    5    8    3   11   16     2
[10,]    5    9   15   12    2   16   15   14    7     9

Si une valeur est présente dans bz mais pas dans la dixième colonne, elle n'est pas prise en compte.
Et en une ligne ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mat <- mat[unlist(sapply(bz,function(x)res <- which(mat[,10]==x))),]

Bonne journée,

Guinue.

[arm3366]

Bonjour,
Dans le cas où tu souhaite avoir des lignes ordonnées vous pouvez utiliser la ligne de code ci-dessous, sachant que la fonction order , il faut choisir une direction croissant par defaut ( argument decreasing=FALSE) ou decroissante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mtx <- mtx[order(mtx[,10], decreasing=TRUE),]

BC

[Enriac]

Merci beaucoup tout est nickel.

Sujet Résolu.