récupérer le nom d'une colonne d'un dataframe selon une condition

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

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

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:

---

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

---

Merci beaucoup Muse de Thamir :)

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

Code:

---

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),]

---