Discussion :

[enicnath]

Bonjour,
Voilà, j'ai un truc tout bête, j'essaie de modifier un data.frame avec une fonction ; et ça ne marche pas.
Voici mon code tout simple :

Code :

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

1
2
3
4
5
BDD <- data.frame(A=c(1,2,3),B=c('a','b','c'),C=c(23,NA,111))
print(BDD)
Fonction <- function() {  BDD$C[is.na(BDD$C)] = 0 }
Fonction()
print(BDD)

Mon data.frame n'a pas bougé, alors que par rapport à la fonction, le data.frame est bien un élément extérieur, mais qui fait partie de son environnement.
Je sèche !

Est-ce que quelqu'un aurait une idée ?

[xavier-Pierre]

salut enicnath,
un coup de mou
il faut penser au retour de la fonction et à la réaffectation dans ton dataframe initial

Code :

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

1
2
3
4
5
6
7
BDD <- data.frame(A=c(1,2,3),B=c('a','b','c'),C=c(23,NA,111))
print(BDD)
Fonction <- function() {  
  BDD$C[is.na(BDD$C)] = 0
  return(BDD)}
BDD <- Fonction()
print(BDD)

bonne journée

[enicnath]

salut enicnath,
un coup de mou
il faut penser au retour de la fonction et à la réaffectation dans ton dataframe initial
...

Merci Xavier-Pierre, mais c'est une solution que je voulais éviter, parce qu'en réalité, mon souci concerne une table de plusieurs milliers de lignes.
Et c'est une table que j'attaque dans une boucle, qui elle-même est longue et compliquée.
Du coup, j'ai une boucle avec réaffectation de la table ; et c'est très consommateur de temps.
En R de plus, il ne semble pas qu'on puisse passer une référence à un objet dans une fonction, comme l'indique ce lien

[xavier-Pierre]

bonjour,
regarde le package data.table
cdlt

[xavier-Pierre]

le code de l'exemple modifié

Code :

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

1
2
3
4
5
6
library(data.table)
BDD <- data.table(A=c(1,2,3),B=c('a','b','c'),C=c(23,NA,111))
print(BDD)
Fonction <- function() {  BDD[is.na(C),C :=0] }
Fonction()
print(BDD)

[enicnath]

bonjour,
regarde le package data.table
cdlt

Ah ouais ... bien !
Merci

[enicnath]

En fait, toujours sur un data.frame, on peut utiliser l'opérateur <<- pour signifier dans une fonction que l'objet à gauche de l'opérateur est une variable globale.
Exemple :

Code :

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

1
2
3
4
5
6
 
DF <- data.frame(A=c('11','22','33','44','55'), B=c(123,456,78,9,0))
Fonction <- function(Obs,Var,Valeur) { 
   DF[[Var]][Obs] <<- Valeur
}
Fonction(1,2,3)

Dans cet exemple, on a modifié la deuxième variable de la première observation, en remplaçant 123 par la valeur 3 !

[xavier-Pierre]

Bonjour enicnath, oui cela fonctionne mais ta fonction utilise une copie de ton dataframe pour le changement de valeur alors qu'avec le package data.table le changement se fait sur directement sur le 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
## taille du jeu de données
n <- 1e6
 
## dataframe
DF <- data.frame(
  A = sample(1:100, n, TRUE),
  B = sample(1:100, n, TRUE)
)
 
## data.table
DT <- as.data.table(DF)
 
### ta fonction
Fonction <- function(Obs,Var,Valeur) { 
  DF[[Var]][Obs] <<- Valeur
}
## test de ta fonction
tracemem(DF)  ##permet de voir si le dataframe est copié
 
Fonction(1,2,999)
 
## test solution data.table
 
tracemem(DT)
 
DT[1, B := 999]
 
 
## comparaison vitesse
## nombre de changements
n_iter <- 10000
 
untracemem(DF) ## pour supprimer le suivi des copies et 
## ne pas ralentir le traitement avec ta fonction
 
# ta fonction
t1 <- system.time({
  for(i in 1:n_iter){
    Fonction(1,2,i)
  }
})
 
# data.table
t2 <- system.time({
  for(i in 1:n_iter){
    DT[1, B := i]
  }
})
 
print(t1)
print(t2)
 
##chez moi j'ai :
 
# > print(t1)
# utilisateur     système      écoulé 
# 26.81       16.23       43.70 
# 
# > print(t2)
# utilisateur     système      écoulé 
# 5.01        0.26        5.40

autrement j'attendais tranquillement le 14 mars pour commémorer la "mort" du forum R, mais il y a encore un petit soubresaut d'activité;
bonne journée

[enicnath]

... autrement j'attendais tranquillement le 14 mars pour commémorer la "mort" du forum R, mais il y a encore un petit soubresaut d'activité;
bonne journée

C'est vrai qu'il n'est plus très actif.
N'y aurait-t'il plus aucun besoin sur R ?