如何将大于阈值的值转换为 R 中 data.table 对象列中的 1?