extraire des données d'un data frame

[Fabrice Yaméogo]

Bonjour,
je voudrais solliciter une fois de plus votre aide.
J'ai un tableau dont voici une version simplifiée:

Code : Tout sélectionner

df<-data.frame(id=c("A","A","A","B","B","B"),x_1=c("True","False","False","True","False","False"),x_2=c("True","False","False","True","False","False"),x_3=c("False","True","False","True","False","False"), x_4=c("False","True","False","False","True","False"),motifs=c("Travail","sante","shopping","Travail","sante","shopping"))


Ce tableau donne les séquences d'activité de deux individus.
Les variables x_1,x_2,x_3, x_4 représentent des tranches horaires. J'ai donc une ligne par individu et motif.

Je souhaiterais, à partir de ce tableau obtenir le tableau suivant:

Code : Tout sélectionner

df1<-data.frame(id=c("A","B"),x_1=c("Travail","Travail"),x_2=c("Travail","Travail"),x_3=c("Sante","Travail"),x_4=c("Sante","Sante"))

afin d'avoir directement les activités menées par chaque individu selon les tranches horaires.

Dans l'espoir que vous pourrez m'aider.
Merci d'avance
Fabrice

[Pierre-Yves Berrard]

Bonjour,

Une proposition avec le package dplyr.

Code : Tout sélectionner

library(dplyr)

df %>%
  group_by(id) %>%
  summarise(
    x_1 = motifs[x_1 == "True"],
    x_2 = motifs[x_2 == "True"],
    x_3 = motifs[x_3 == "True"],
    x_4 = motifs[x_4 == "True"]
  )

[Fabrice Yaméogo]

Cela marche très bien.
Merci
Fabrice

[Mickael Canouil]

Bonjour,

une petite variante de la proposition de Pierre-Yves pour éviter la redondance du code.

Code : Tout sélectionner

library(dplyr)

df %>%
  group_by(id) %>%
  summarise_at(
    .vars = vars(starts_with("x_")),
    .funs = ~motifs[.x%in%"True"]
  )
#> # A tibble: 2 x 5
#>   id    x_1     x_2     x_3     x_4 
#>   <fct> <fct>   <fct>   <fct>   <fct>
#> 1 A     Travail Travail sante   sante
#> 2 B     Travail Travail Travail sante

Cordialement,

[Fabrice Yaméogo]

Bonjour,
merci pour l'astuce.
Cordialement

[Serge Rapenne]

Bonjour,

j'étais partis sur une autre voie :

Code : Tout sélectionner

library(dplyr)
library(tidyr)
df %>% gather(X,Exist,-id,-motifs) %>% filter(Exist=="True") %>% select(-Exist) %>% spread(X,motifs)
id     x_1     x_2     x_3   x_4
1  A Travail Travail   sante sante
2  B Travail Travail Travail sante

Serge

[François Bonnot]

Bonjour,
Autre solution sans dplyr :

Code : Tout sélectionner

data.frame(id=rle(as.character(df$id))$values,sapply(df[2:5],function(x) df$motifs[as.logical(x)]))