Utilisez les noms de colonnes de trames de données et des valeurs aux lignes de nom

Question

I ont une trame de données de différentes combinaisons qui représentent si un marqueur est présent 1 ou non 0

combinations_df <- expand.grid(
marker_a = c(0, 1), 
marker_b = c(0, 1), 
marker_c = c(0, 1), 
marker_d = c(0, 1) 
) 

    marker_a marker_b marker_c marker_d 
1   0  0  0  0 
2   1  0  0  0 
3   0  1  0  0 
4   1  1  0  0 
5   0  0  1  0 
6   1  0  1  0 
7   0  1  1  0 
8   1  1  1  0 
9   0  0  0  1 
10  1  0  0  1 
11  0  1  0  1 
12  1  1  0  1 
13  0  0  1  1 
14  1  0  1  1 
15  0  1  1  1 
16  1  1  1  1 

Je suis en train de créer un vecteur d'attribuer la ligne noms utilisant chaque colonne, avec sa valeur.

Exemple de sortie:

            marker_a marker_b marker_c marker_d 
marker_a_0-marker_b_0-marker_c_0-marker_d_0   0  0  0  0 
marker_a_1-marker_b_0-marker_c_0-marker_d_0   1  0  0  0 
... 

Answer 1

Cela devrait le faire:

apply(combinations_df, 
     MARGIN = 1, 
     FUN = function(x) { 
          paste0(c(rbind(colnames(combinations_df), x)), 
            collapse = "-") 
         } 
    )