Matrixwerte aus Datenrahmen vektorisiert ausfüllen

Question

Ich habe ein Datenframe mit 3 Spalten, von denen zwei die Indizes i, j in einer Matrix darstellen. Für jede Zeile der Datenrahmen, würde Ich mag die entsprechenden i, j-Wert in einer Matrix auf 1

Gemeinsame Nutzung der Daten und Matrix unten zu füllen, die ich denke, wird es leichter zu beschreiben, das Problem machen:

data = structure(list(sale_id = c(0L, 1L, 2L, 2L, 3L, 3L, 4L, 4L, 5L, 
5L, 5L, 5L, 5L, 5L, 6L, 6L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 
8L, 8L, 8L, 8L, 8L, 8L, 8L, 8L, 9L, 9L, 10L, 10L, 11L, 11L, 11L, 
12L, 12L, 12L, 12L, 12L, 12L, 12L, 12L, 13L, 14L, 15L, 16L, 16L, 
17L, 17L, 17L, 17L, 17L, 18L, 18L, 19L, 19L, 20L, 20L, 21L, 22L, 
22L, 23L, 23L, 23L, 24L, 24L, 25L, 25L, 26L, 26L, 27L, 27L, 28L, 
28L, 29L, 30L, 30L, 30L, 30L, 30L, 30L, 30L, 31L, 31L, 32L, 32L, 
33L, 33L, 33L, 33L, 33L, 33L, 34L, 34L), user_id = c(3219L, 144L, 
2884L, 2884L, 2155L, 2155L, 2155L, 2155L, 2817L, 2817L, 2817L, 
2817L, 2817L, 2817L, 144L, 144L, 2850L, 2850L, 2850L, 2850L, 
2850L, 2850L, 2850L, 2850L, 2850L, 144L, 144L, 144L, 144L, 144L, 
144L, 144L, 144L, 2817L, 2817L, 2075L, 2075L, 2546L, 2546L, 2546L, 
2687L, 2687L, 2687L, 2687L, 2687L, 2687L, 2687L, 2687L, 170L, 
2546L, 1963L, 144L, 144L, 1825L, 1825L, 1825L, 1825L, 1825L, 
144L, 144L, 2155L, 2155L, 2546L, 2546L, 144L, 2155L, 2155L, 144L, 
144L, 144L, 3182L, 3182L, 3343L, 3343L, 170L, 170L, 2155L, 2155L, 
2793L, 2793L, 1564L, 2250L, 2250L, 2250L, 2250L, 2250L, 2250L, 
2250L, 3083L, 3083L, 2075L, 2075L, 144L, 144L, 144L, 144L, 144L, 
144L, 829L, 829L), item_id = c(174L, 10L, 179L, 162L, 171L, 182L, 
179L, 185L, 199L, 179L, 195L, 174L, 162L, 198L, 144L, 69L, 57L, 
47L, 83L, 80L, 10L, 117L, 14L, 90L, 88L, 186L, 167L, 192L, 142L, 
162L, 173L, 151L, 134L, 191L, 166L, 118L, 128L, 98L, 95L, 119L, 
130L, 154L, 155L, 181L, 120L, 118L, 77L, 120L, 101L, 31L, 139L, 
10L, 30L, 182L, 179L, 139L, 173L, 171L, 80L, 39L, 26L, 69L, 163L, 
151L, 175L, 150L, 148L, 121L, 147L, 88L, 183L, 177L, 132L, 167L, 
176L, 172L, 57L, 78L, 98L, 99L, 118L, 102L, 141L, 97L, 99L, 79L, 
32L, 17L, 16L, 30L, 66L, 54L, 57L, 91L, 81L, 39L, 92L, 123L, 
87L, 62L)), .Names = c("sale_id", "user_id", "item_id"), row.names = c(NA, 
100L), class = "data.frame") 

M = matrix(0, nrow = max(data$user_id), ncol = max(data$item_id)) 

head(data, n = 6) 
    sale_id user_id item_id 
1   0 3219  174 
2   1  144  10 
3   2 2884  179 
4   2 2884  162 
5   3 2155  171 
6   3 2155  182 

Die i-Spalte ist user_id und die j-Spalte ist item_id. Also für die erste Zeile möchte ich für M [3219, 174] = 1, dann möchte ich M [144, 10] = 1 usw. Ich würde das gerne ohne eine For-Schleife machen, die zu langsam ist angesichts der Größe meiner Matrix.

als Referenz, was ich derzeit tue, ist:

for(i in 1:nrow(data)) { 
    M[data$user_id[i], data$item_id[i]] = 1 
} 

jedoch mein Problem recht groß skaliert, und das ist zu langsam für mein Problem. Jede Hilfe wird sehr geschätzt! Dank

EDIT: Ich habe versucht, etwas entlang der Linien von:

apply(data, 1, FUN = function(x) M[x[2],x[3]] = 1) 

aber es nicht so gut arbeiten, wie ich hoffe, (dauert noch länger als die for-Schleife).

Answer 1

Try this:

M[cbind(data$user_id,data$item_id)] <- 1