r - 日付の列に基づいて要素が繰り返されるシーケンスの列

Question

日付を含む列で並べ替えられたデータ フレームを考えてみましょう。

df=data.frame(event=1:12,
              subject=rep("M325",12),
              date=c(rep("2017-11-01",4),rep("2017-11-14",8)))

私が望むのは、1 から次の一意の日付までのシーケンスを持つ 4 番目の列を作成し、シーケンス内のすべての要素が i番目の日付ごとに繰り返されるようにすることです。例えば：

   event subject       date num
1      1    M325 2017-11-01   1
2      2    M325 2017-11-01   1
3      3    M325 2017-11-01   1
4      4    M325 2017-11-01   1
5      5    M325 2017-11-14   2
6      6    M325 2017-11-14   2
7      7    M325 2017-11-14   2
8      8    M325 2017-11-14   2
9      9    M325 2017-11-14   2
10    10    M325 2017-11-14   2
11    11    M325 2017-11-14   2
12    12    M325 2017-11-14   2

この結果をn日間取得するためのアドバイスをいただければ幸いです。