在R中如何仅交换数据框两列中数据不匹配行的对应值？

核心思路是先通过规则定位列错位的行，再批量交换两列的值，无需逐行手动修改。 #

实现步骤 #

1. 先定义合法的性别取值集合，用来判断列是否错位
   valid_sex <- c("Male", "Female")
2. 筛选出需要交换两列值的行：行满足「Sex列值不是合法性别，同时Age列值是合法性别」的判定条件
   swap_index <- !df$Sex %in% valid_sex & df$Age %in% valid_sex
3. 批量交换错位行的两列值

df[swap_index, c("Sex", "Age")] <- df[swap_index, c("Age", "Sex")]

4. 可选操作：将Age列统一转为数值类型，方便后续分析
   df$Age <- as.integer(df$Age)

效果说明 #

以提供的示例数据为例，运行上述代码后，原第三行的错位数据会自动修正为：sequence3 | Male | 21，其余正常行不受影响。如果业务场景里有其他合法性别取值，只需要修改valid_sex的枚举内容即可适配。

内容的提问来源于stack exchange，提问作者bergdoktor