Discussion :

[pupilSAS]

Bonjour,

Je suis débutante R, je tente de créer une fonction simple pour comprendre le principe de la fonction

Code :

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

tab <- data.frame(age=c(1,2,3),type=c(1,1,1))

J'enregistre le nouveau dataframe toto, l'équivalent de tab

Code :

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

toto <- tab

Je crée une fonction qui va faire la même chose de manière automatique

Code :

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

1
2
3
temporal <- function(tableau_out, tableau_in) {tableau_out <<- tableau_in}
rm(toto)
  temporal (toto,tab)

Je souhaite que le paramètre tableau_out prenne la valeur de toto et tableau_in, celle de tab. ça ne marche pas. Je n'ai peut-être pas compris le principe d'une fonction en R

merci à tous pour votre aide

[prog_R]

Bonjour,

Si j'ai bien compris:

Code :

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

1
2
3
4
5
6
temporal = function(tableau_in){
  tableau_out = tableau_in
}
 
tableau_out = temporal(tableau_in)
rm(tableau_in)

j'espère que ca répond à ta demande
Prog_R

[Theta]

Le problème vient du fait que tableau_out <<- tableau_in veut dire met la valeur de la variable tableau_out dans une variable nommée "tableau_out", et non dans une variable dont le nom est la valeur de la variable tableau_out (ce que tu devais penser). Au final si tu fait ls() tu verras que tu as une variable "tableau_out" qui se créé.

Si tu viens d'un autre langage de programmation (c++ et dérivés), tu pensait peut être utiliser une référence, mais non, il n'y a pas de référence en R.

Il faut passer par la fonction "assign" pour faire ce que tu veux.

[pupilSAS]

Merci pour vos retours. Je viens du monde SAS.

Merci Theta, je comprends mieux.

Code :

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

1
2
3
4
5
6
temporal = function(tableau_in){
  tableau_out = tableau_in
}
 
tableau_out = temporal(tableau_in)
rm(tableau_in)

Je souhaite avoir les 2 paramètres dans la fonction function(tableau_out, tableau_in). Pourquoi avez-vous supprimer tableau_out?

[prog_R]

Si j'ai bien compris, tu souhaites faire une fonction qui attribue à tableau_out, les valeurs de tableau_in.
dans la première partie de ta fonction, tu mets les paramètres nécessaire à la réalisation de ta sortie (tableau_out). Je vois pas trop l'intérêt de le mettre dans la fonction si ca dépend uniquement de tableau_in.

J'ai sans doute pas totalement compris la demande

Prog_R

[pupilSAS]

Merci. Mon objectif est de faire une fonction qui prend un dataframe source, fait un filtre et de met le résultat dans un nouveau dataframe.

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
 
 
# Création de 2 data frames sources
tab_source1 <- data.frame(age=c(1,2,3),type=c(1,1,1))
tab_source2 <- data.frame(age=c(1,2,3),type=c(1,1,1))
 
#code non automatisé : filtres sur les dataframes sources et stockage des résultats dans des dataframes résultats
 
new_tab1 <- tab_source1 %>% dplyr::filter(age>1)
new_tab2 <- tab_source1 %>% dplyr::filter(age>2)
new_tab3 <- tab_source1 %>% dplyr::filter(age>3)
 
 
new_tab1_ <- tab_source2 %>% dplyr::filter(age>1)
new_tab2_ <- tab_source2 %>% dplyr::filter(age>2)
new_tab3_ <- tab_source2 %>% dplyr::filter(age>3)

Comment automatiser le code ci-dessus avec une fonction? Ou placer la fonction assign? Voici ce que j'ai tenté mais ça ne marche pas.

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
 
#code automatisé
 
temporal <- function (data_out,data_in, param_age){
  data_out <- data_in %>% dplyr::filter(age>param_age)
 
}
 
temporal (new_tab1,tab_source1,1)
temporal (new_tab2,tab_source1,2)
temporal (new_tab3,tab_source1,3)
 
temporal (new_tab1_,tab_source2,1)
temporal (new_tab2_,tab_source2,2)
temporal (new_tab3_,tab_source2,3)

J'espère être un peu plus clair. Merci encore

[prog_R]

à tester:

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
23
# Création de 2 data frames sources
tab_source1 <- data.frame(age=c(1,2,3),type=c(1,1,1))
tab_source2 <- data.frame(age=c(1,2,3),type=c(1,1,1))
 
#code non automatisé : filtres sur les dataframes sources et stockage des résultats dans des dataframes résultats
 
ma_fonction = function(tab_source1, tab_source2){
new_tab1 = tab_source1[which(tab_source1$age>1),]
new_tab2 = tab_source1[which(tab_source1$age>2),]
new_tab3 = tab_source1[which(tab_source1$age>3),]
 
new_tab1_ = tab_source2[which(tab_source1$age>1),]
new_tab2_ = tab_source2[which(tab_source1$age>2),]
new_tab3_ = tab_source2[which(tab_source1$age>3),]
 
assign(x='new_tab1', value=new_tab1, envir=.GlobalEnv)
assign(x='new_tab2', value=new_tab2, envir=.GlobalEnv)
assign(x='new_tab3', value=new_tab3, envir=.GlobalEnv)
assign(x='new_tab1_', value=new_tab4, envir=.GlobalEnv)
assign(x='new_tab2_', value=new_tab5, envir=.GlobalEnv)
assign(x='new_tab3_', value=new_tab6, envir=.GlobalEnv)
}
ma_fonction(tab_source1,tab_source2)

c'est ce que tu recherches ?

Prog_R

[pupilSAS]

Bonjour,

On y est presque.

Code :

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

1
2
3
4
5
6
7
8
tab_source1 <- data.frame(age=c(1,2,3),type=c(1,1,1))
 
temporal <- function (data_out=,data_in=, param_age=){
  data_out <- data_in %>% dplyr::filter(age>param_age)
  assign(x='data_out',value=data_out,envir=.GlobalEnv)
}
 
temporal(sortie_toto,tab_source1,2)

Pourquoi quand j'appelle la fonction, j'ai en sortie une table qui s'appelle "data_out" et non pas sortie_toto? Ceci est un exemple; car je vais faire appel plusieurs fois à la fonction temporal avec des tables en entrée et en sortie avec des noms différents.
Merci encore pour le temps consacré.

[prog_R]

j'ai un peu de mal à lire ton code avec cette utilisation de dplyr, en revanche, pour l'intitulé, il suffit de le remplacer dans ton assign x="sortie_toto"

Code :

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

assign(x='sortie_toto',value=data_out,envir=.GlobalEnv)

on est bon ou toujours pas ?

Prog_R

[pupilSAS]

Ce nom est amené à changer, c'est pour cela que je fais une fonction. Automatiser le "assign", juste changer les paramètres comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
temporal <- function (data_out,data_in, param_age){
  data_out <- data_in %>% dplyr::filter(age>param_age)
  assign(x='data_out',value=data_out,envir=.GlobalEnv)
}
 
temporal(sortie_toto,tab_source1,1)
temporal(titi_toto,tab_source1,2)
temporal(tutu_toto,tab_source1,3)

[mgdondon]

Bonjour,

Le plus simple est de faire un return() en fin de fonction :

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
> tab_source1 <- data.frame(age=c(1,2,3),type=c(1,1,1))
> 
> temporal <- function(data_in, param_age){
+   data_out <- data_in[which(data_in$age >= param_age),]
+   return(data_out)
+ }
> 
> sortie_toto <- temporal(tab_source1, 1)
> sortie_toto
  age type
1   1    1
2   2    1
3   3    1
> titi_toto <- temporal(tab_source1, 2)
> titi_toto
  age type
2   2    1
3   3    1
> tutu_toto <- temporal(tab_source1, 3)
> tutu_toto
  age type
3   3    1

Cordialement,

PS : Puisque vous êtes un utilisateur SAS, je vous conseille le document R for SAS and SPSS users et le livre associé.

[Theta]

J'ai du mal à voir pourquoi tu veux absolument utiliser assign (ou avant <<-). Il y a certains cas où ça peut se justifier, mais dans 99% des cas c'est à considérer comme une mauvaise pratique de modifier l'environnement global depuis une fonction.

[pupilSAS]

Ok, j'ai compris. Merci mgdondon, cela fonctionne. Il m'a fallu du temps mais je viens de comprendre le fonctionnement.

Merci progR, tes remarques et propositions m'ont permis de comprendre le fonctionnement.

je sors de SAS et ce n'est pas pareil.