Discussion :

[sfyn94]

Bonjour,
J'aimerais récupérer les noms de colonnes pour chaque ligne ayant une valeur non nulle.
exemple :


je veux par exemple pour le premier identifiant : c1 et c3
pour le deuxième : c2 et c3
pour le 3 ème : c1 et c3
et enfin pour le 4 ème : c1 et c2

[Invité]

Bonjour,

En supposant que la colonne identifiants est la 1re et n'est jamais nulle, je te propose ceci qui crée un tibble avec une ligne par variable non nulle pour un identifiant(donc 8 lignes avec ton exemple, puisque 2 variables non nulles pour chacune des 4 lignes)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
df <- data.frame(
  identifiant = c(1,2,3,4),
  c1 = c(1,0,3,4),
  c2 = c(0,4,0,1),
  c3 = c(1,2,12,0)
)
df
 
library(tibble)
dfNonNulles <- tibble(id = numeric(0), variableNonNulle = character(0))
for(ligne in 1:nrow(df)){
  colonnesNonNulles <- names(df)[which(df[ligne,] !=0)][-1]
  dfNonNulles <- add_row(dfNonNulles, id = df[ligne,"identifiant"], variableNonNulle = colonnesNonNulles)
}
dfNonNulles

[sfyn94]

Merci beaucoup Muse de Thamir

[olivier.decourt]

Bonjour.
Une autre solution, sans boucle, en transposant.

Code :

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

1
2
3
4
5
6
7
8
9
df <- data.frame(
  identifiant = c(1,2,3,4),
  c1 = c(1,0,3,4),
  c2 = c(0,4,0,1),
  c3 = c(1,2,12,0)
)
 
df2 <- reshape2::melt(df, id="identifiant")
df2 <- df2[which(df2$value != 0),]