Cách tốt để nhân mỗi hàng của ma trận bằng một vectơ trong r

Question

Tôi biết đây là một câu hỏi thực sự cơ bản, xin lỗi.

Tôi muốn nhân mỗi hàng của ma trận bằng vectơ. Vì vậy, tôi có:

mat=matrix(1,2,4) 
vec=c(1,2,3,4) 

#works but ugly: 
new.mat=mat 
for(i in 1:nrow(mat)){ 
    new.mat[i,]=mat[i,]*vec 
} 

Tôi nghĩ tôi đã tìm thấy câu trả lời bằng 'áp dụng' nhưng tôi không thể làm cho nó hoạt động theo cùng một cách.

Answer 1

Tôi nghĩ rằng đây là những gì bạn đang tìm kiếm ...

t(t(mat) * vec) 
    [,1] [,2] [,3] [,4] 
[1,] 1 2 3 4 
[2,] 1 2 3 4 

* giống như hầu hết các nhà khai thác khác trong R được vectorised. Các t là cần thiết vì R sẽ tái chế cột-khôn ngoan. Các giải pháp apply là:

t(apply(mat , 1 , `*` , vec)) 
    [,1] [,2] [,3] [,4] 
[1,] 1 2 3 4 
[2,] 1 2 3 4 

Answer 2

sử dụng apply

> t(apply(mat,1 , function(x) x*vec)) 
    [,1] [,2] [,3] [,4] 
[1,] 1 2 3 4 
[2,] 1 2 3 4 

Answer 3

tôi phải nói một cách thanh lịch nhất để đi về việc này là:

mat=matrix(1,2,4) 
vec=1:4 
new.mat=t(vec*t(mat)) 

Answer 4

tôi thích sweep, mặc dù tôi nghĩ rằng nó hơi chậm hơn:

sweep(mat,MARGIN=2,vec,"*") 

MARGIN=2 chỉ định rằng mỗi cột (lề 2) phải được nhân với phần tử tương ứng là vec.