创建循环以重复每日值以与月度值

Question

我试图将代表每日降水量的一列数字乘以同年的相应月降水量。从下面的例子中，这意味着将1890年1月的每个PPT值乘以1890年1月的每月PPT值，即将来自D.SIM的31个数字乘以来自M.SIM的相同数字，然后对所有剩余月份进行相同的操作。多年来的记录。有一个简单的方法吗？

非常感谢。

数据集：D.SIM

Day Month Year PPT
1 1 1890 2.4
2 1 1890 0.0
3 1 1890 3.6

数据集：M.SIM

Year Jan Feb Mar ...
1890 78.5 69.6 62.1 ...

Answer 1

对齐

for (i in df){
    JAN <- data.frame(rep(df$Jan, each=31))
}

然后重复其他11个月。