Discussion :

[audeP]

Bonjour,

Je galère que un point qui est surement basique.
J'ai un tableau de données, dans lequel je cherche à substituer une chaine de caracteres par une autre, soit 3 digits après avoir trouvé un 'pattern".

Voici un ex simplifié :

df <- data.frame(
ID = row_number(1:5),
chaine = c("NA-NA-NA-NA-16-LUZ-NA-NA-NA-NA-19-PTR-NA-NA-NA-NA-3-ORA-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUT",
"NA-NA-NA-NA-16-LUD-NA-NA-NA-NA-19-PTR-NA-NA-NA-NA-3-ORD-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-MIS",
"NA-NA-NA-NA-16-LUZ-NA-NA-NA-NA-19-PTR-NA-NA-NA-NA-3-ORP-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUZ",
"NA-NA-NA-NA-16-LUB-NA-NA-NA-NA-19-PAR-NA-NA-NA-NA-3-ORP-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUA",
"NA-NA-NA-NA-19-PRP-NA-NA-NA-NA-19-PER-NA-NA-NA-NA-3-ORP-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUZ") )

Je voudrais remplacer "19-xxx-" par "19-P-" quels que soient les lettres après 19- et pour toutes les occurrences par lignes de 19.
J'ai tenté différentes manips avec str_detect, str_replace_all, stru_sub et 19-PTR- mais n'ai pas réussi à les impbriquer (nest).

J'ai donc ensuite pensé à trouver les positions des 19 pour remplacer en relatif ensuite les groupes de caracteres, en comptant à partir de l'indice de position de 19.

Et cela n'a pas donné le résultat escompté non plus :

# pour le 19
indP <- gregexpr("(?=19)",df$chaine,perl=TRUE)
trouvP <- `attributes<-`(indP[[1]],NULL)
resP <- if (trouvP !=-1 ) {
substr(df$chaine, trouvP+3, trouvP+5) <- "P"
} else { df$chaine}
df$chaine <- resP

Si quelqu'un a une idée, je suis preneuse, merci ! :-)

[anapurna]

Salut
cela devrais etre un truc dans le genre en PERL

Code :

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

1
2
3
4
5
6
7
my $chaine="NA-NA-NA-NA-16-LUZ-NA-NA-NA-NA-19-PTR-NA-NA-NA-NA-3-ORA-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUT",
"NA-NA-NA-NA-16-LUD-NA-NA-NA-NA-19-PTR-NA-NA-NA-NA-3-ORD-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-MIS",
"NA-NA-NA-NA-16-LUZ-NA-NA-NA-NA-19-PTR-NA-NA-NA-NA-3-ORP-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUZ",
"NA-NA-NA-NA-16-LUB-NA-NA-NA-NA-19-PAR-NA-NA-NA-NA-3-ORP-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUA",
"NA-NA-NA-NA-19-PRP-NA-NA-NA-NA-19-PER-NA-NA-NA-NA-3-ORP-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUZ";
$chaine=~s/19-??-/19-P-/;
print $chaine;

PS en regardant un peux les possibilité de R
je pense que tu devrais pouvoir le faire de cette maniere

Code :

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

1
2
3
4
5
6
7
8
df<-data.frame(
D = row_number(1:5),
chaine=c("NA-NA-NA-NA-16-LUZ-NA-NA-NA-NA-19-PTR-NA-NA-NA-NA-3-ORA-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUT",
"NA-NA-NA-NA-16-LUD-NA-NA-NA-NA-19-PTR-NA-NA-NA-NA-3-ORD-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-MIS",
"NA-NA-NA-NA-16-LUZ-NA-NA-NA-NA-19-PTR-NA-NA-NA-NA-3-ORP-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUZ",
"NA-NA-NA-NA-16-LUB-NA-NA-NA-NA-19-PAR-NA-NA-NA-NA-3-ORP-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUA",
"NA-NA-NA-NA-19-PRP-NA-NA-NA-NA-19-PER-NA-NA-NA-NA-3-ORP-NA-NA-NA-NA-3-ORH-NA-NA-NA-NA-1-BTH-NA-NA-16-LUZ-NA-NA-16-LUZ"))
df$NewChaine <- gsub("^19-??-", "19-P-", df$chaine, perl=T)

le result tu l'aura bien compris est dans NewChaine