Copie ensemble de colonnes

Bonjour,
Je souhaiterais copier des colonnes, identifiées par des noms de variable suffixés par "_prov" dans des variables dont les noms sont identiques au suffixe près ("_def")

Ainsi, ma table initiale

Code:

---

1 2 3 4 5

> res x v1_prov V2 azer_prov 1 1 4 7 10 2 2 5 8 20 3 3 6 9 30

---

devra être transformée en :

Code:

---

1 2 3 4 5 6

> res x v1_prov V2 azer_prov azer_def v1_def 1 1 4 7 10 10 4 2 2 5 8 20 20 5 3 3 6 9 30 30 6

---

Si quelqu'un a une solution élégante ...:?

Bonjour.
Je ne sais pas si la solution paraîtra "élégante" mais voilà toujours. C'est du R base, le package {tibble} ne servant qu'à saisir l'exemple.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

# saisie des données exemple ---- library(tibble) res <- tribble( ~x, ~v1_prov, ~V2, ~azer_prov , 1, 4, 7, 10, 2, 5, 8, 20, 3, 6, 9, 30)   # dupliquer les colonnes "_prov" dans des colonnes "_def" ----   # on récupère tous les noms de colonnes a_copier <- colnames(res) # on garde ceux qui se finissent par "_prov" a_copier <- a_copier[grepl("_prov$",a_copier)]   # on construit les nouveaux noms nouveaux_noms <- gsub("_prov$","_def",a_copier)   # on duplique les données res2 <- res   # on ajoute les nouvelles colonnes res2[,nouveaux_noms] <- res[,a_copier]

---

Merci !
De mon côté, après quelques recherches, j'ai "fabriqué" cette solution :

Code:

---

1 2 3 4

new <- res %>% select(matches("_prov$")) %>% rename_with(~gsub("prov","def",.x,fixed=T)) %>% bind_cols(res)

---

(où je ne comprends pas très bien l'utilité des arguments x et fixed de la fonction gsub, mais ils sont apparemment nécessaires !
En tout cas, merci pour la solution proposée qui me convient également parfaitement. De plus, elle m'a permis de découvrir l'usage de tibble, la fonction grepl...
:D