如何向R中的data.table对象添加一列?