Simplifier une fonction

Version imprimable

24/06/2019, 17h34
Seheiah

1 pièce(s) jointe(s)

Simplifier une fonction

Bonjour,

J'aurais besoin d'aide pour simplifier une fonction.
J'aimerais comparer l'identifiant et la date de deux dataframe et faire en sorte que si la date de visite pour un sujet donné du premier dataframe est égale à plus ou moins 15 jours de la date du deuxième dataframe, alors la date de premier df prendre la valeur de celle du second.

Ce sont des tableaux concernant plusieurs sujet avec une ligne par visite.

La fonction que j'ai fait fonctionne mais prend vraiment beaucoup de temps et j'aurais aimé savoir s'il est possible de la simplifier.

Merci d'avance. En me relisant j'ai l'impression que mes explications ne veulent rien dire. J'espère que quelqu'un arrivera a me comprendre :)

Mon code :

Pièce jointe 486103

Voila voila, merci d'avance pour votre aide :)

Bonjour,

Il est préférable de copier-coller le code et de fournir des dataframes pour le tester.

Code:

1
2
df1 <- data.frame(id = c(1,1,1,2,2,2),
                  date = as.Date(c("2017-01-01","2017-02-01","2017-03-01","2018-01-01","2018-02-01","2018-03-01")))

Code:

1
2
3
4
5
6
7
8
> df1
  id       date
1  1 2017-01-01
2  1 2017-02-01
3  1 2017-03-01
4  2 2018-01-01
5  2 2018-02-01
6  2 2018-03-01

Code:

1
2
df2 <- data.frame(id = c(1,1,1,2,2,2),
                  date = as.Date(c("2017-01-10","2017-02-20","2017-05-01","2018-01-01","2018-02-15","2018-03-01")))

Code:

1
2
3
4
5
6
7
8
> df2
  id       date
1  1 2017-01-10
2  1 2017-02-20
3  1 2017-05-01
4  2 2018-01-01
5  2 2018-02-15
6  2 2018-03-01

• Avec votre code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
vec_jour <- c(1:15)
for (i in 1:nrow(df1)){
  for (j in 1:nrow(df2)){
    for (k in 1:length(vec_jour)){
      if (df1[i,"date"]==df2[j,"date"]+vec_jour[k] | df1[i,"date"]==df2[j,"date"]-vec_jour[k]){
        if (df1[i,"id"]==df2[j,"id"]){
          df1[i,"date"]<-df2[j,"date"]
        }
      }
    }
  }
}

Code:

1
2
3
4
5
6
7
8
> df1
  id       date
1  1 2017-01-10
2  1 2017-02-01
3  1 2017-02-20
4  2 2018-01-01
5  2 2018-03-01
6  2 2018-03-01

N.B. : L'observation 5 du résultat n'est pas correcte. Dans les propositions qui suivent je suis restée sur votre algorithme. Je n'ai pas cherché à corriger le problème.

• Vous pouvez vous affranchir de la boucle sur le nombre de jours

Code:

1
2
3
4
5
6
7
8
9
for (i in 1:nrow(df1)){
  for (j in 1:nrow(df2)){
      if (df1[i,"date"]>=df2[j,"date"]-15 & df1[i,"date"]<=df2[j,"date"]+15){
        if (df1[i,"id"]==df2[j,"id"]){
          df1[i,"date"]<-df2[j,"date"]
        }
      }
  }
}

Code:

1
2
3
4
5
6
7
8
> df1
  id       date
1  1 2017-01-10
2  1 2017-02-01
3  1 2017-02-20
4  2 2018-01-01
5  2 2018-03-01
6  2 2018-03-01

• et d'une des boucles sur les dataframes (conserver celle avec le moins d'itérations, voir cette discussion).

Code:

1
2
3
4
5
6
7
jmax <- nrow(df2)
for (j in 1:jmax){
  df1$date <- ifelse((df1$id==df2[j,"id"] & df1$date>=df2[j,"date"]-15 & df1$date<=df2[j,"date"]+15),
                             df2[j,"date"], df1$date)
}
df1$date <- as.Date(df1$date,origin = "1970-01-01")
df1

Code:

1
2
3
4
5
6
7
8
> df1
  id       date
1  1 2017-01-10
2  1 2017-02-01
3  1 2017-02-20
4  2 2018-01-01
5  2 2018-03-01
6  2 2018-03-01

Cordialement,

25/06/2019, 09h40
Seheiah

Bonjour,

Effectivement les résultats 3 et 5 semblent erronés, que ce soit avec ma fonction de départ ou les vôtres.
Je vais essayer de voir où est le problème.

En tout cas, merci beaucoup pour votre aide :D, ça va ma faire gagner un temps précieux !

Cordialement,
25/06/2019, 09h45
mgdondon

Simplifier une fonction

Bonjour,

Le résultat 3 ne me semble pas erroné : 2017-02-20 est 9 jours avant 2017-03-01.

Cordialement,
25/06/2019, 10h13
Seheiah

Au temps pour moi, j'ai sauté une ligne, je regardais la date du 2017-05-01 :mrgreen:

Simplifier une fonction

Bonjour,

Le problème du résultat 5 s'explique en exécutant le programme pas à pas :

Code:

1
2
3
4
5
6
7
8
9
10
df1 <- data.frame(id = c(1,1,1,2,2,2),
                  date = as.Date(c("2017-01-01","2017-02-01","2017-03-01","2018-01-01","2018-02-01","2018-03-01")))
df2 <- data.frame(id = c(1,1,1,2,2,2),
                  date = as.Date(c("2017-01-10","2017-02-20","2017-05-01","2018-01-01","2018-02-15","2018-03-01")))
 
for (j in 1:5){
  df1$date <- ifelse((df1$id==df2[j,"id"] & df1$date>=df2[j,"date"]-15 & df1$date<=df2[j,"date"]+15),
                             df2[j,"date"], df1$date)
}
df1$date <- as.Date(df1$date,origin = "1970-01-01")

Code:

1
2
3
4
5
6
7
8
> df1
  id       date
1  1 2017-01-10
2  1 2017-02-01
3  1 2017-02-20
4  2 2018-01-01
5  2 2018-02-15
6  2 2018-02-15

Cordialement,

12/07/2019, 15h13
Seheiah

Merci beaucoup, c'est parfait :ccool: