Comment recoder des valeurs dans une matrice en fonction d'un calcul?

Question

J'ai une question. Je travaille sur la construction d'un système de recommandation en R, et je suis assez nouveau dans la langue. Je n'arrive pas à comprendre ce qui suit.

J'ai une matrice comme:

eventID g_26 g_27 g_28 g_29 g_30 g_31 g_32 g_33 g_34 g_35 g_36 g_37 g_38 g_39 g_40 g_41 g_42 g_43 
1: 1010 0 0 1 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 
2: 1016 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 
3: 1019 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 
4: 1053 1 0 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 
5: 1168 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 0 0 0 
6: 1188 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

Que Id aiment faire est de remplacer toutes les valeurs qui ont 1 à 1/sqrt (n total de 1 dans cette ligne particulière). J'utilise également le package Data Table si cela facilite la tâche.

Merci d'avance!

Answer 1

Nous pouvons spécifier les colonnes d'intérêt .SDcols (-1 implique, nous avons sélectionné toutes les colonnes à l'exception la première colonne), obtenir la somme de chaque ligne dans le sous-ensemble de Data.table avec Reduce et +, prendre la racine carrée (sqrt), diviser par 1, multiplier avec le sous-ensemble de data.table (.SD) et affecter (:=) aux colonnes d'intérêt

dt[, (2:ncol(dt)) := .SD*1/sqrt(Reduce(`+`, .SD)), .SDcols = -1] 

Answer 2

À titre d'exemple

m <- matrix(c(1, 1, 0, 1, 0, 0, 1, 0, 0), ncol = 3, byrow = T) 

rs <- apply(m,1,sum) 
rs <- sqrt(rs) 

m <- m/rs 

espère que cela vous

Answer 3

Nous pouvons multiplier le dataframe avec la valeur.

Tous les chiffres qui sont 0 resteront 0 et celui avec 1 volonté de se changer à la sortie désirée

df[-1] * 1/sqrt(rowSums(df==1))