R：在将记录插入矩阵时避免循环

Question

我有一个零矩阵m和一个包含要插入到m中的记录的数据帧df。

# fix seed ------------------------------------------- 
set.seed(0)  

# create m, matrix of zeros -------------------------- 
rnames <- seq(1, 100, 1) 
m <- matrix(0, length(rnames), length(letters), 
     dimnames=list(rnames, letters)) 

# create df of random records ------------------------ 
r <- sample(rnames, 10, replace=TRUE) 
c <- sample(letters, 10, replace=TRUE) 
q <- runif(10, -10, 10) 
df <- data.frame(r, c, q) 

# want to insert df$q at r,c in m -------------------- 

我能做到这一点，而不诉诸一个循环？最干净的方法是什么？

Answer 1

将指示矩阵转换为m。

index <- cbind(
    row = df$r, 
    col = match(df$c, colnames(m))  
) 

m[index] <- df$q