如何在 R 数据框中创建具有多个条件和 NA 的替换列?