乗算ベクター

Question

の対応する値によるデータフレームの各列I持って次のデータフレームとベクトル：

dframe <- as.data.frame(matrix(1:9,3)) 
vector <- c(2,3,4) 

Iはvectorの対応する値によってdframeの各列を乗算したいです。これはしないだろう。

> vector * dframe 
    V1 V2 V3 
1 2 8 14 
2 6 15 24 
3 12 24 36 

各行dframeのがvectorの対応する値ではなく、各カラム乗算されます。どんな慣用的な解決法がありますか、私はforサイクルで立ち往生していますか？

Answer 1

は別のオプションは、 `トン（トン（dframe）についてsweep

sweep(dframe, 2, vector, "*") 
# V1 V2 V3 
#1 2 12 28 
#2 4 15 32 
#3 6 18 36 

---

それともcol

dframe*vector[col(dframe)] 

Answer 2

あなたはMapを使用することができます。ここでは

as.data.frame(Map(`*`, dframe, vector)) 

# V1 V2 V3 
#1 2 12 28 
#2 4 15 32 
#3 6 18 36