R- Gestion de string

[Le Bihan Hugo]

Bonjour,
J'ai un problème, j'aimerai couper un string afin d'avoir les nombres en entier suivi de la phrase qui lui correspond :

Code : Tout sélectionner

x<-"1=OUI 25=NON 123=Je ne sait pas

J'ai réussi a faire cela, mais ce code me supprime le texte entre:

Code : Tout sélectionner

> str_split(x, pattern = "[^0-9]")
[[1]]
 [1] "1"   ""    ""    ""    ""    "25"  ""    ""    ""    ""    "123" ""    ""    ""    ""    ""    ""    ""    ""    ""    "" 

Ce que j''aimerai obtenir :

Code : Tout sélectionner

"1" "=OUI" "25" "=NON "123" "=Je ne sais pas"

Je pense qu'il existe une solution avec les expressions régulières, mais je suis novice et j'ai du mal à comprendre.

Si quelqu'un pouvait m'aider merci.

[Mickael Canouil]

Bonjour,

pour vos prochains messages, pensez à écrire un code reproductible et fonctionnel.

• Qu'est-ce qu'un code reproductible ?
• Comment insérer des données dans un message ?
• FAQ: What's a reproducible example (`reprex`) and how do I do one?

Ici, la chaîne de caractère dans x, n'a pas le guillemet fermant la dite chaîne et aucune indication sur la provenance de str_split() n'est fournie.

Code : Tout sélectionner

x <- "1=OUI 25=NON 123=Je ne sait pas"
str_split(x, pattern = "[^0-9]")
#> Error in str_split(x, pattern = "[^0-9]"): could not find function "str_split"        

Ceci étant dit, comme vous utilisez (a priori) la librairie stringr, voici une solution

Code : Tout sélectionner

library("stringr")
x <- "1=OUI 25=NON 123=Je ne sait pas"
str_extract_all(string = x, pattern = "[0-9]+=[^0-9]+")
#> [[1]]
#> [1] "1=OUI "             "25=NON "            "123=Je ne sait pas"   

EDIT : En R base

Code : Tout sélectionner

x <- "1=OUI 25=NON 123=Je ne sait pas"
regmatches(x, gregexpr("[0-9]+=[^0-9]+", x))
#> [[1]]
#> [1] "1=OUI "             "25=NON "            "123=Je ne sait pas"   

Pour en savoir plus sur les expressions régulières ?regex dans R ou n'importe quelle ressource en ligne.

Cordialement,

[Le Bihan Hugo]

Très bien je prend note !
Merci pour votre aide., je pense que j'arriverai à me débrouiller avec.

Cordialement,
Hugo

[Logez Maxime]

Bonjour,

une alternative avec les fonctions de base :

Code : Tout sélectionner

strsplit(x, "(?<=\\D) (?=\\d)", perl = T)

Cordialement,
Maxime

[Mickael Canouil]

Bonjour,

une alternative avec les fonctions de base :

Code : Tout sélectionner

strsplit(x, "(?<=\\D) (?=\\d)", perl = T)

Cordialement,
Maxime

Il faudrait vraiment que je me penche sur cette syntaxe des expressions régulières pour les éléments répétés.

[Le Bihan Hugo]

Bonjour,

Tout d'abord merci Mickael, ton code ma beaucoup aidé !

J'ai un nouveau problème toujours avec les expressions régulières,

Code : Tout sélectionner

library("stringr")
x<-"121~52~2"
> str_extract_all(string = x,pattern = "\\d+(?=~)")
[[1]]
[1] "121" "52"


Je ne sais pas pourquoi il supprime le 2 à la fin j'aimerai obtenir "121" "52 "2"

[Mickael Canouil]

Tout simplement parce-que vous indiquez que chaque nombre doit obligatoirement être suivi de ~.
2 ne respecte donc pas votre expression.
Voir "*" et "+".

Code : Tout sélectionner

library("stringr")
x <- "121~52~2"
str_extract_all(string = x, pattern = "\\d+(?=~*)")
#> [[1]]
#> [1] "121" "52"  "2" 

[Le Bihan Hugo]

Tout simplement parce-que vous indiquez que chaque nombre doit obligatoirement être suivi de ~.
2 ne respecte donc pas votre expression.
Voir "*" et "+".

Code : Tout sélectionner

library("stringr")
x <- "121~52~2"
str_extract_all(string = x, pattern = "\\d+(?=~*)")
#> [[1]]
#> [1] "121" "52"  "2"  

Ah! J'avais bien vu que je pouvais utiliser "*" ou "+" mais j'ai remplacé le "?" au lieu de l'ajouter après le "~"
Merci.

[Le Bihan Hugo]

Code : Tout sélectionner

library("stringr")
x<-"7,6~9,8,7"
> str_extract_all(string = x,pattern = "\\d+(?=~*)")
[[1]]
[1] "7" "6" "9" "8" "7"


Ce code fonctionne parfaitement sans "," mais avec il me sépare tous mes caractères

Dans ce cas j'aurai voulu obtenir "7,6" "9,8,7"

[Fred Santos]

Ce n'est plus la même question là ;-)
Mais ceci devrait marcher :

Code : Tout sélectionner

str_extract_all(string = x, pattern = "[[:digit:],]+(?=~*)")

(Je remplace vos \d par le classique [:digit:] que je trouve moins ambigu.)

[Le Bihan Hugo]

C'est parfait, merci !

[Logez Maxime]

Code : Tout sélectionner

library("stringr")
x<-"7,6~9,8,7"
> str_extract_all(string = x,pattern = "\\d+(?=~*)")
[[1]]
[1] "7" "6" "9" "8" "7"


Ce code fonctionne parfaitement sans "," mais avec il me sépare tous mes caractères

Dans ce cas j'aurai voulu obtenir "7,6" "9,8,7"

Dans des cas comme celui-là ou le séparateur est clair, qu'il ne peut pas être confondu avec le texte qu'on cherche à conserver alors la fonction strplit est toute adaptée et plus simple à mettre en place que de chercher la bonne expression régulière.

Code : Tout sélectionner

strsplit(x", "~")
[[1]]
[1] "7,6"   "9,8,7"

str_extract_all(string = x, pattern = "[[:digit:],]+(?=~*)")
[[1]]
[1] "7,6"   "9,8,7"


Cordialement,
Maxime