R：使用基于另一列的值添加新列，按类别编制索引

Question

如何使用基于另一列的值添加新列，按这些值索引？为了更好地解释，我有这样的数据：

public void Configuration(IAppBuilder app)
    {

    }

我需要添加第四列“status”，它将基于“代码，索引”材料“中的值”。因此，如果材料12包含“是”，则该材料的所有状态行将包含“完成”，如果材料14不包含“是”，则该材料的所有状态行都将包含“已拒绝”。重要的是按材料编制索引，如下所示：

library(data.table)
set.seed(1234)
DT <-data.table(contract=1:7,code=c("yes","yes","no","no","yes","no","no"),material=c(12,12,12,13,13,14,14))

contract code material
    1     yes       12
    2     yes       12
    3      no       12
    4      no       13
    5     yes       13
    6      no       14
    7      no       14

有关如何实施该建议的任何建议？感谢