Transformer un vecteur en matrice transposée

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.

bonjour , une soution avec le tidyverse

Code:

---

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

Bonjour,

C'est exactement ce que je cherchais, merci.

juste pour le fun

Code:

---

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)

---