Effectué un split tous les x pattern

Bonjour,

J'ai une chaîne de caractère comme ceci:

Code:

---

elements <- "e1=1, e2=2, e3=3, e4=4, e5=5"

---

Je voudrais découper cette chaîne de caractère tous les 4 virgules et avoir une liste comme ceci

Code:

---

1 2 3 4 5

[[1]] [1] "e1=1, e2=2, e3=3, e4=4"   [[2]] [1] "e5=5"

---

Tu peux essayer quelque chose comme

Code:

---

1 2 3 4

Elements <- "e1=1, e2=2, e3=3, e4=4, e5=5" ; Elements ListElements <- strsplit(Elements, split=',') ; ListElements Element1 <- paste(ListElements[[1]][1:4],collapse=',') ; Element1 Element2 <- ListElements[[1]][5] ; Element2

---

Mais il y a aussi le package stringr qui permet de faire des choses encore plus facilement

Bonsoir,

Voici une autre solution possible sans package qui consiste à trouver l'index de la dernière virgule et ensuite d'extraire les 2 sous-chaînes de part et d'autre :

Code:

---

1 2 3 4 5

e <- "e1=1, e2=2, e3=3, e4=4, e5=5" n <- unlist(lapply(gregexpr(pattern = ',', e), max)) e1 <- substring(e,0,n-1) e2 <- substring(e,n+2)

---

Bonjour,

Merci de votre aide,

J'avais essayé avec le package stringi::stri_split_fixed mais ca me donne cela

Code:

---

1 2 3 4 5 6 7

library(stringi) e <- "e1=1, e2=2, e3=3, e4=4, e5=5" stri_split_fixed(e,",", n = 4)   [[1]] [1] "e1=1" " e2=2" [3] " e3=3" " e4=4, e5=5"

---