Discussion :

[malouchka]

[Bonjour]

J'ai une base de données où j'aimerais faire un rbind (ajouter des absences dans mon cas quand la personne n'est pas présente)

La base de données se présente comme suit :

Code :

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

l'identifiant_du_jour      numero_quart_d'heure       présence_et_eventuellement_absence       pièce_de_présence_ou_d'absence    Date

L'algorithme auquel j'ai pensé est le suivant, mais ça ne marche pas, il me renvoie continuellement la même base sans les absences que je voulais ajouter :

Code :

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

1
2
3
4
5
6
7
8
9
for(i in 1: rownums)
{
    if(  i!= rownums &&  test_user1$num_qu[i]==test_user1$num_qu[i+1] )
    { 
        heure_debut<-substr(test_user1$id_date[i],1,40)
        ligne<-c(test_user1$id_j[i],test_user1$num_qu[i],test_user1$id_cli[i],0,substr(test_user1$pi[i],1,10),heure_debut) 
        resultat<-rbind(test_user1,ligne)
    }
}

[Merci d'avance pour votre aide.]

[chautho]

Bonjour,

Au lieu d'utiliser la fonction c() as-tu essayé d'utiliser data.frame() ? Cela marche peut-être mieux pour le rbind() derrière, mais je n'en suis pas sure.

Bon courage !

[A. D.]

Bonjour,

Sans voir directement les données ni la sortie, pas facile de deviner mais je pense qu'avec les modifications suivantes ça devrait fonctionner (ou du moins se rapprocher de la solution) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
resultat<-test_user1

for(i in 1: rownums)
{
    if(  i!= rownums &&  test_user1$num_qu[i]==test_user1$num_qu[i+1] )
    { 
        heure_debut<-substr(test_user1$id_date[i],1,40)
        ligne<-c(test_user1$id_j[i],test_user1$num_qu[i],test_user1$id_cli[i],0,substr(test_user1$pi[i],1,10),heure_debut) 
        resultat<-rbind(resultat,ligne)
    }
}

HTH !


Cordialement,


A.D.