如何在R中的data.table对象中创建具有多个条件和NA的替换列?