Répétition et organisation des données esoph sur R

Bonjour,
je travaille sur les données de esoph sur R et je veux répéter les 88 lignes en fonction de la somme des cas et des contrôles, et je dois obtenir 1175 lignes (chaque ligne pour un patient) et par la suite je dois remplacer colonne des cas et colonne des contrôles par une seule colonne avec comme valeur 1 pour les cas et 0 pour les contrôles. Et à la fin, je dois les organiser dans un nouveau tableau.
Merci

Bonjour,

Donnez-nous un extrait de votre jeu de données initiales et un exemple du résultat attendu.
Pour le moment, c'est difficile de vous aider sans avoir plus de matière.

Bonsoir,
L'échantillon de mes données et le suivant :

  head (esoph1)
  agegp     alcgp    tobgp        ncases ncontrols total    
1 25-34 0-39g/day 0-9g/day       0        40       40                     
2 25-34 0-39g/day    10-19        0        10       10                      
3 25-34 0-39g/day    20-29        0         6        6                         
4 25-34 0-39g/day      30+         0         5       5                         
5 25-34     40-79 0-9g/day        0        27       27                     
6 25-34     40-79    10-19         0         7         7       

La colonne "total" prend comme valeur ncontrols+ncases et je veux répéter chaque ligne (total) fois de cette ligne.
Par la suite, quand j'obtiens 1175 lignes qui est la somme de tous les ncases et ncontrols, il faut que j'enlève ces deux colonnes et que je les remplace par une seule où si le patient est un cas la valeur de cette colonne va prendre 1 sinon 0 (mais par exemple dans une ligne répétée 10 fois et le ncases=6 et ncontrols=4 les 6 premières lignes de ma nouvelle colonne vont prendre 1 et les autres 0)
et à la fin je dois avoir la même structure que mon jeu de données initial avec cas/controls dans une seule colonne :

 agegp     alcgp    tobgp  cas/control

Bonsoir,

il aurait été intéressant de voir ce que vous proposiez comme solution afin de vous aider sans faire l'exercice à votre place.

Voici une proposition de solution qui est loin d'être parfaite :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

MesDonnees <- data.frame(A=rep("25-34",3),B=c("r","t","y"),cas=c(1,3,0),control=c(1,0,1),total=c(2,3,1))   nbLig <- dim(MesDonnees)[1] nbCol <- dim(MesDonnees)[2]   Res <- data.frame() MesDonnees$casControl <- rep(0,nbLig)   k <- 1   for (i in 1:nbLig){ compt <- MesDonnees[i,"cas"] for(j in 1:(MesDonnees[i,"total"])){ Res <- rbind(Res, MesDonnees[i,1:(nbCol+1)]) } Res$casControl[k:(k+(MesDonnees[i,"total"])-1)] <- c(rep(1,compt), rep(0, (MesDonnees[i,"total"])-compt)) k <- k+(MesDonnees[i,"total"]) }

---

Pour améliorer ce code, vous pouvez chercher notamment

Code:

---

?rep

---

Code:

---

?apply

---

et regarder quelques notions de base notamment ici.

Bonne continuation :)