Dataframe Remplacer Substring apres machning pattern

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é :

Citation:

---

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 :

Citation:

---

# 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 ! :-)

Salut
cela devrais etre un truc dans le genre en PERL

Code:

---

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:

---

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