如何创建一个列，该列是其他列数据表的唯一集合的组标签

Question

惊讶地发现这有多难。

假设我有数据表：

dat = data.table(d=c(1:3,1),k=c(3:1,3),f=1)

   d k f
1: 1 3 1
2: 2 2 1
3: 3 1 1
4: 1 3 1 

我想分组d，k来创建一个新的列a，它为这些组编号，所以我得到：

   d k f a
1: 1 3 1 1
2: 2 2 1 2 
3: 3 1 1 3
4: 1 3 1 1

请不要解决方法，假设d，k行不一定是唯一的，因此可能会有重复。