Discussion :

[rhipilaf]

Bonjour,
Je suis en train de créer un fonction qui est sensée éditer un data.frame à partir de de ses résultat.
Ce data.frame doit porter le même nom que celui qui est digéré par la fonction. Je veux le remplacer.
Comment est-ce que je peut coder ça?
Merci d'avance!
Cordialement,
Théo G

[marou1991]

Bonjour,

Pourriez-vous donner des exemples ou plus d'explications s'il vous plait ?

[tototode]

Bonjour,

toujours cette idée de fonction qui remplace un objet, à mon avis c'est dangereux comme façon de programmer.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
fun <- function(df) {
  x <- deparse(substitute(df))
  y <- scale(df)
  env1 <- parent.frame()
  assign(x, y, envir = env1)
}
 
 
df1 <- data.frame(x = 1:5, y = rnorm(5), z = rpois(5, 1.8))
scale(df1)
              x          y          z
[1,] -1.2649111  0.3613575  1.2278812
[2,] -0.6324555  1.0060798 -0.5262348
[3,]  0.0000000 -1.1344912  0.3508232
[4,]  0.6324555 -0.9948300 -1.4032928
[5,]  1.2649111  0.7618839  0.3508232
attr(,"scaled:center")
       x        y        z 
3.000000 0.476867 2.600000 
attr(,"scaled:scale")
        x         y         z 
1.5811388 0.5066093 1.1401754 
 
fun(df1)
# après transformation :
df1
              x          y          z
[1,] -1.2649111  0.3613575  1.2278812
[2,] -0.6324555  1.0060798 -0.5262348
[3,]  0.0000000 -1.1344912  0.3508232
[4,]  0.6324555 -0.9948300 -1.4032928
[5,]  1.2649111  0.7618839  0.3508232
attr(,"scaled:center")
       x        y        z 
3.000000 0.476867 2.600000 
attr(,"scaled:scale")
        x         y         z 
1.5811388 0.5066093 1.1401754

cdlt

[rhipilaf]

Merci pour la mise en garde!
Donc par contre, si je veux faire sortir un nouveau data.frame, comment m'y prend-je ?
Par exemple sur l'exemple que vous m'avez proposé ci-dessus.
Crdt,
Théo

[tototode]

re,

directement en sortie de ta fonction :

Code :

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

1
2
3
4
5
6
fun <- function(df) { # contient toutes les opérations de transformation souhaitee
  # pour l'exemple
  y <- scale(df)
  y
}
df2 <- fun(df1)

Ici tu gagnes en lisibilité, tu as une fonction qui fait des opérations, tu l'appliques sur un tableau donné et tu stockes le résultat dans le tableau à gauche de la flèche.

cdlt