mise en array recalcitrante

# Soient deux objets 1 et 2 constitués de trois points chacun, avec chaque point defini par deux coordonnées x,y

Code:

---

1 2 3 4

> objets x1 y1 x2 y2 x3 y3 1 1 2 3 4 5 6 2 7 8 9 10 11 12

---

# Ces objets se trouvent dans une matrice

Code:

---

1 2 3 4 5

> objets <-as.matrix(objets) > objets V1 V2 V3 V4 V5 V6 [1,] 1 2 3 4 5 6 [2,] 7 8 9 10 11 12

---

# On peut donc, par exemple, transposer la présentation

Code:

---

1 2 3 4 5 6 7 8

> t(objets) [,1] [,2] V1 1 7 V2 2 8 V3 3 9 V4 4 10 V5 5 11 V6 6 12

---

# Je souhaite en faire un "array" comportant les deux matrices, comme par exemple...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

> la <- array(t(objets), dim=c(2,3,2)) > la , , 1   [,1] [,2] [,3] [1,] 1 3 5 [2,] 2 4 6   , , 2   [,1] [,2] [,3] [1,] 7 9 11 [2,] 8 10 12

---

# Oui, mais je ne trouve pas comment faire pour que l'array me présente les objets de la manière suivante:

Code:

---

1 2 3 4 5 6 7 8 9

[,1] [,2] [1,] 1 2 [2,] 3 4 [3,] 5 6 [,1] [,2] [1,] 7 8 [2,] 9 10 [3,] 11 12

---

Attention, il n'est pas correct de répondre par la <- array(t(objets), dim=c(3,2,2)) car les coordonnées ne sont alors plus correctes...


Un grand merci d'avance,

khunjpd

Bonjour,

Effectivement quel casse-tête! :aie:

Voilà qui fait l'affaire :
Je n'utilise pas beaucoup les objets de type array composés (pourquoi pas une liste d'ailleurs?) du coup c'est un for plutôt qu'un lapply.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

#Le tableau de départ az <- data.frame("x1"=c(1,7),"y1"=c(2,8),"x2"=c(3,9),"y2"=c(4,10),"x3"=c(5,11),"y3"=c(6,12))   az <- as.matrix(az) #Passé en matrice   la <- array(t(az), dim=c(2,3,2))#Passé en array   la_bis <- array(0,c(3,2,2)) #Un nouvel array aux dimensions souhaitées   for(i in 1:dim(la)[3]) la_bis[,,i] <- array(t(la[,,i]))   #Affichage > la_bis , , 1   [,1] [,2] [1,] 1 2 [2,] 3 4 [3,] 5 6   , , 2   [,1] [,2] [1,] 7 8 [2,] 9 10 [3,] 11 12

---

:mrgreen:

Bonne journée

Citation:

---

Envoyé par Guinue

Bonjour,

Effectivement quel casse-tête! :aie:

Voilà qui fait l'affaire :
Je n'utilise pas beaucoup les objets de type array composés (pourquoi pas une liste d'ailleurs?) du coup c'est un for plutôt qu'un lapply.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

#Le tableau de départ az <- data.frame("x1"=c(1,7),"y1"=c(2,8),"x2"=c(3,9),"y2"=c(4,10),"x3"=c(5,11),"y3"=c(6,12))   az <- as.matrix(az) #Passé en matrice   la <- array(t(az), dim=c(2,3,2))#Passé en array   la_bis <- array(0,c(3,2,2)) #Un nouvel array aux dimensions souhaitées   for(i in 1:dim(la)[3]) la_bis[,,i] <- array(t(la[,,i]))   #Affichage > la_bis , , 1   [,1] [,2] [1,] 1 2 [2,] 3 4 [3,] 5 6   , , 2   [,1] [,2] [1,] 7 8 [2,] 9 10 [3,] 11 12

---

:mrgreen:

Bonne journée

---

UN GRAND MERCI !

Citation:

---

UN GRAND MERCI !

---

De rien, ravi d'avoir pu aider :ccool: