R语言实现两列同行字符匹配时给指定列赋值的方法

基础实现（无需额外安装包） #

R自带的向量运算默认支持逐元素比对，不需要手动写逐行循环，运算效率远高于显式遍历操作。
首先构造示例数据框供参考：

# 示例数据框，可替换为你的实际数据
df <- data.frame(
  整数列1 = sample(1:100, 5),
  字符列1 = c("A", "B", "C", "D", "E"),
  字符列2 = c("A", "C", "C", "D", "F"),
  目标列 = 0 # 初始值全为0的目标列
)

核心操作代码，直接通过逻辑索引赋值即可：

# 把代码中的「字符列1」「字符列2」「目标列」替换为你实际的列名即可
df$目标列[df$字符列1 == df$字符列2] <- 1

特殊场景处理 #

如果两个比对列存在NA空值，==运算符对NA的比对结果会返回NA，不会触发赋值。如果需要把两边都为NA的情况也判定为内容一致，可以改用如下写法：

df$目标列 <- ifelse(
  (df$字符列1 == df$字符列2) | (is.na(df$字符列1) & is.na(df$字符列2)),
  1,
  0
)

tidyverse风格实现（适配dplyr语法） #

如果你习惯使用dplyr的管道操作，可以用mutate函数实现：

library(dplyr)

df <- df %>%
  mutate(目标列 = if_else(字符列1 == 字符列2, 1, 0))

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