Discussion :

[pitchu]

Bonjour,

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

Code :

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

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 :

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

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

[enicnath]

Tu peux essayer quelque chose comme

Code :

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

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

[Canvas]

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 :

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

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)

[pitchu]

Bonjour,

Merci de votre aide,

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

Code :

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

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"