réarranger un tableau/une matrice

Bonjour,

J'ai qqch d'assez compliqué à réaliser qui consiste à créer des fichiers Google de manière automatique mais certains traitements sont nécessaires.

Je récupère les coordonnées de polygones depuis des couches de données spatiales:

Code:

---

1 2 3 4 5 6 7

[,1] [,2] [1,] 9.117977 42.56610 [2,] 9.423532 42.57824 [3,] 9.490566 42.47105 [4,] 9.459078 42.36303 [5,] 9.126430 42.25 [6,] 9.117977 42.56610

---

Il faut que j'inverse l'ordre du tableau en prenant appui sur une ligne, celle dont la valeur de la deuxième colonne est la plus basse.
which.min me récupère l'index de cette ligne mais pour le reste: :roll:

Ainsi, je devrais avoir ce résultat à la fin:

Code:

---

1 2 3 4 5 6 7

9.126430298734192 42.25 9.459078262784823 42.36303078000007 9.490565955189886 42.4710456197469 9.423531637215202 42.57823837594944 9.117977272405078 42.56610448025323 9.126430298734192 42.25333021443046

---

Une idée?

Merci!

Bonjour,
j'utiliserais order:

Code:

---

1 2 3 4

d <- data.frame(c(9.117977, 9.423532, 9.490566, 9.459078, 9.126430, 9.117977), c(42.56610, 42.57824, 42.47105, 42.36303,42.25, 42.57610))   o <- order(d[,2]) cbind(d[,1][o], d[,2][o])

---

Bonne journée :)

Bonjour,

Citation:

---

Envoyé par mathieu_r

Il faut que j'inverse l'ordre du tableau en prenant appui sur une ligne, celle dont la valeur de la deuxième colonne est la plus basse.
which.min me récupère l'index de cette ligne mais pour le reste: :roll:

---

Ta demande n'est pas complètement claire : si je vois bien ce qui se passe pour les lignes qui sont au dessus, que comptes-tu faire des lignes qui sont en dessous ?

Par exemple, d'où sort la dernière ligne du résultat attendu ?

Citation:

---

Envoyé par mathieu_r

Code:

---

1 2 3 4

... 9.117977272405078 42.56610448025323 9.126430298734192 42.25333021443046

---

---

Une fois que ce sera plus clair, je devrais avoir des idées ;)

Bonjour,

Le tableau est un tableau des coordonnées des objets polygones d'une couche Google Earth.
Je pensais qu'il fallait ajuster l'ordre des entrées dans le tableau sinon le polygone ne se dessinait pas.
En fait, mon souci était seulement l'espace qu'il fallait enlever.
Maintenant c'est résolu.

En fait, ce que je souhaitais faire était cela:

Code:

---

1 2 3 4 5 6 7

[,1] [,2] [1,] 9.117977 42.56610 [2,] 9.423532 42.57824 [3,] 9.490566 42.47105 [4,] 9.459078 42.36303 [5,] 9.126430 42.25 [6,] 9.117977 42.56610

---

repérer l'index dont la valeur de la deuxième colonne est la plus petite

Code:

---

1 2 3 4 5 6 7

[,1] [,2] [1,] 9.117977 42.56610 [2,] 9.423532 42.57824 [3,] 9.490566 42.47105 [4,] 9.459078 42.36303 [5,] 9.126430 42.25 [6,] 9.117977 42.56610

---

Puis réarranger le tableau en suivant l'ordre indiqué à droite:

Code:

---

1 2 3 4 5 6 7

[,1] [,2] [1,] 9.117977 42.56610 5 [2,] 9.423532 42.57824 4 [3,] 9.490566 42.47105 3 [4,] 9.459078 42.36303 2 [5,] 9.126430 42.25 1 [6,] 9.117977 42.56610 6

---

(mais la solution m'intéresse toujours!)

Citation:

---

Envoyé par mathieu_r

(mais la solution m'intéresse toujours!)

---

OK, mais je penses que tu as oublié le tri dans le second tableau ci-dessous...
Du coup, je ne vois toujours pas ce que tu souhaites faire avec les lignes qui vienne après celle qui présente 42.25 ! (restent-elles dans le même ordre ?)

Citation:

---

Envoyé par mathieu_r

...
repérer l'index dont la valeur de la deuxième colonne est la plus petite

Code:

---

1 2 3 4 5 6 7

[,1] [,2] [1,] 9.117977 42.56610 [2,] 9.423532 42.57824 [3,] 9.490566 42.47105 [4,] 9.459078 42.36303 [5,] 9.126430 42.25 [6,] 9.117977 42.56610

---

Puis réarranger le tableau en suivant l'ordre indiqué à droite:

Code:

---

1 2 3 4 5 6 7

[,1] [,2] [1,] 9.117977 42.56610 5 [2,] 9.423532 42.57824 4 [3,] 9.490566 42.47105 3 [4,] 9.459078 42.36303 2 [5,] 9.126430 42.25 1 [6,] 9.117977 42.56610 6

---

---

Edit: Je retire ce que j'ai dit, c'est moi qui ai mal lu :aie:

Bon, voila qui devrait marcher :

Code:

---

1 2 3 4 5

d <- data.frame(a=c(9.117977, 9.423532, 9.490566, 9.459078, 9.126430, 9.117977), b=c(42.56610, 42.57824, 42.47105, 42.36303,42.25, 42.57610))   d[ c(seq(from=which.min(d[ , 2]), to=1), seq(from=which.min(d[ , 2]) + 1, to=nrow(d))), ]

---

merci!