Discussion :

[lg__213]

Bonjour,
Je dispose d’un dataframe sur lequel il y a plusieurs lignes pour un même individu, j’ai un valeur qui apparait seulement sur le première ligne et j’aimerais la répéter sur toutes les lignes du même individu.

ID	Statut
1	0
1
1
2	1
2

Par exemple, je voudrais répéter le 0 de statut sur toutes les lignes du sujet 1 et le 1 de statut sur toutes les lignes du sujet 2.

Je débute sur r et je n'ai aucune idée de comment faire, j'ai un data frame qui fait plus de 2000 lignes.

Merci d'avance.

j'ai essayé cela :

Code :

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

1
2
3
library(dplyr)
df %>% group_by(ID) %>% 
  mutate(Statut = Statut[1])

mais ca ne marche pas, ca me met des 0 sur toutes les lignes de statut

[enicnath]

je voudrais répéter le 0 de statut sur toutes les lignes du sujet 1 et le 1 de statut sur toutes les lignes du sujet 2.

Une première solution simple, avec une boucle :

Code :

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

1
2
3
4
for (i in seq(nrow(DF))) {
    if (i == 1) next
    if (DF[i,1] == DF[i-1,1]) DF[i,2] <- DF[i-1,2]
}

Mais je suppose qu'il y a de meilleures solutions vectorielles

[lg__213]

merci pour votre réponse mais ca n'a pas l'air de fonctionner

[olivier.decourt]

Bonjour.
En restant dans {dplyr} :

Code :

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

1
2
3
library(dplyr)
df %>% group_by(ID) %>%
mutate(Statut = first(Statut))

Dans R base c'est un peu plus compliqué, il faudrait sans doute faire un split selon ID, et avec une boucle ou un apply dupliquer à toutes les lignes la première valeur de Statut.

[lg__213]

Bonjour,
Merci de votre aide. J'ai le même problème qu'avec la première fonction que j'ai essayé.

Avec ce data frame :

Code :

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

1
2
3
df <- data.frame(
  ID  = c(1,1,1,2,2), 
  Status = c(0, NA, NA, 1, NA))

et ce code :

Code :

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

1
2
3
library(dplyr)
df %>% group_by(ID) %>%
  mutate(Status = first(Status))

J'obtiens cette sortie :

Code :

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

1
2
3
4
5
6
7
8
9
# A tibble: 5 x 2
# Groups:   ID [2]
     ID Status
  <dbl>  <dbl>
1     1      0
2     1      0
3     1      0
4     2      0
5     2      0

Je ne comprends pas d'où peut venir le problème

[lg__213]

Je viens de fermer tous mes codes r et de tout relancer et ca fonctionne bien!! Merci beaucoup de votre aide

Bonne fin de journée!

[enicnath]

merci pour votre réponse mais ca n'a pas l'air de fonctionner

Eh bien ça fonctionne très bien chez moi. Je joints le code complet que j'ai utilisé en R base :

Code :

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

1
2
3
4
5
6
df <- data.frame(ID = c(1,1,1,2,2),Status = c(0, NA, NA, 1, NA))
for (i in seq(nrow(df))) {
    if (i == 1) next
    if (df[i,1] == df[i-1,1]) df[i,2] <- df[i-1,2]
}
print(df)

J'obtiens bien ce qui semblait être la demande initiale :

ID Status
1 1 0
2 1 0
3 1 0
4 2 1
5 2 1

[lg__213]

Eh bien ça fonctionne très bien chez moi. Je joints le code complet que j'ai utilisé en R base :

Code :

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

1
2
3
4
5
6
df <- data.frame(ID = c(1,1,1,2,2),Status = c(0, NA, NA, 1, NA))
for (i in seq(nrow(df))) {
    if (i == 1) next
    if (df[i,1] == df[i-1,1]) df[i,2] <- df[i-1,2]
}
print(df)

J'obtiens bien ce qui semblait être la demande initiale :

Oui ca marche bien également merci beaucoup! Je ne sais pas pourquoi tout à l'heure rien ne marchait et en fermant et en relançant tout fonctionne! Un petit caprice de R ahah

Merci de votre aide