Discussion :

[jlp65]

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 :

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

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 :

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

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 ...

[olivier.decourt]

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 :

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

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]

[jlp65]

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

Code :

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

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...