Discussion :

[AnneauRouge]

Bonjour,

Je dispose d'un vecteur, je souhaiterais obtenir une matrice contenant à chaque ligne la transposition des 4 données précédentes (une par colonne donc).

Par exemple :

Vecteur original :

12
34
52
23
99
67
48
38

Je souhaiterais obtenir quelque chose de la forme :


99 23 52 34 12
67 99 23 52 34
48 67 99 23 52
38 48 67 99 23




Je suis inexpérimenté en programmation et encore plus en R, et toutes mes recherches concernant ma question ont été infructueuses, d'où l'ouverture
de ce sujet, en espérant que vous puissiez m'aider.

[xavier-Pierre]

bonjour , une soution avec le tidyverse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
library(tidyverse)
a=c(12,34,52,23,99,67,48,38)
 
 transposer <- function(vect){
   rang = 5:length(vect)
 
   res <- map_df(rang,~tibble(a=vect[.x],b=vect[.x-1],d=vect[.x-2],e=vect[.x-3],f=vect[.x-4]))
 
 }
 
 resultat <- transposer(a) %>% as.matrix()

cdlt

[AnneauRouge]

Bonjour,

C'est exactement ce que je cherchais, merci.

[xavier-Pierre]

juste pour le fun

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
 
 
library(tidyverse)
a=c(12,34,52,23,99,67,48,38)
 
transposer <- function(vect,nb){
  rang = nb:length(vect)
 
  #res <- map_df(rang,~tibble(a=vect[.x],b=vect[.x-1],d=vect[.x-2],e=vect[.x-3],f=vect[.x-4]))
  res <-matrix(unlist( map(rang,~map_dbl(0:(nb-1),~vect[.y -.x],.y =.x))),ncol = nb, byrow = TRUE)
}
 
 
 
resultat <- transposer(a,5)