Discussion :

[jlp65]

Bonjour,
Je souhaiterais modifier des dataframes en leur appliquant un même traitement (fonction) : ici, renommage d'une colonne + sélection de variables
Je pensais peut-être que do.call pouvait répondre à cette problématique
Mais cela ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
table1<-data.frame(old=c("a","b","c"),x=1:3,y=c(10,20,30))
table2<-data.frame(old=c("X","Y","Z"),x=7:9,y=c(100,200,300))
liste_tables<-list("table1","table2")
 
ma_fonction <- function (df){
  df<-df %>% 
    rename(new = old) %>%
    select(new, x, y)
  return(df)
}
 
do.call(ma_fonction,liste_tables)

[xavier-Pierre]

bonjour avec la fonction purrr::map

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
library(tidyverse)
table1<-data.frame(old=c("a","b","c"),x=1:3,y=c(10,20,30))
table2<-data.frame(old=c("X","Y","Z"),x=7:9,y=c(100,200,300))
liste_tables<-list("table1","table2")
 
ma_fonction <- function (df){
  df<-df %>% 
    rename(new = old) %>%
    select(new, x, y)
  return(df)
}
 
res=map(list(table1,table2),ma_fonction)