根据多种条件对数据框进行排名

Question

我具有以下数据框：Id，DateId，事件和其他许多列。裸露的骨头是

set.seed(123)
Id<-c(rep(1,4),rep(2,4),rep(3,4),rep(4,4))
DateId<-rep(seq(1,4,1),4)
Event<-round(abs(rnorm(16))*1000,digits=0)
df<-data.frame(Id,DateId,Event)

Id DateId Event
1      1   710
1      2   257
1      3   247
1      4   348
2      1   952
2      2    45
2      3   785
2      4  1668
3      1   380
3      2   919
3      3   575
3      4   608
4      1  1618
4      2    56
4      3   519
4      4   301

其他列只是每个事件的更多信息。下一步需要的每一列。它们是一些因素，整数和数量。

我需要做的是为每个ID排列DateId列，并使其成为新列。在此示例中，它与DateId列完全相同，但是我的数据中包含实际日期，因此要写一堆随机的半连续日期太浪费时间了。但是，DateId为1 = 1、2 = 2等。