在Base R中能否用字典方式批量将整数替换为对应字符串？

我需要在Base R里批量替换数据框中的整数值为对应的字符串，但直接用命名向量的方法行不通——因为原变量是整数类型，用整数作为索引去取命名向量的话会匹配向量的位置而非名字：

testing <- data.frame(
  var1 = c(1, 6, 17)
)

# 这种方法无效
dict <- c(
  1 = 'ICMP', 
  6 = 'TCP', 
  17 = 'UDP'
)

testing$var1 <- dict[testing$var1]

目前我只能逐个替换：

testing$var1[testing$var1 == 1] <- "ICMP"
testing$var1[testing$var1 == 6] <- "TCP"
testing$var1[testing$var1 == 17] <- "UDP"

想知道Base R里有没有更便捷的批量替换方式？

这里有几种Base R中的便捷实现方式：

方法1：利用match()匹配键值对 #

先定义存储替换规则的键和值向量，通过match()找到每个值的对应位置，再提取目标字符串：

testing <- data.frame(var1 = c(1, 6, 17))

# 定义替换规则
keys <- c(1, 6, 17)
values <- c("ICMP", "TCP", "UDP")

# 批量替换
testing$var1 <- values[match(testing$var1, keys)]

这个方法适配各种类型的键，后续扩展替换规则只需要修改两个向量即可，非常灵活。

方法2：通过factor()类型转换实现映射 #

如果你的变量是分类性质的，用因子的levels和labels参数可以直接完成映射，之后可按需转成字符类型：

testing$var1 <- as.character(
  factor(testing$var1,
         levels = c(1, 6, 17),
         labels = c("ICMP", "TCP", "UDP"))
)

如果后续需要做统计分析，保留因子类型还能直接用于分类建模。

方法3：用replace()简化逐行替换逻辑 #

如果替换规则数量不多，replace()函数可以让逐行替换的代码更整洁，可读性更强：

testing$var1 <- replace(testing$var1, testing$var1 == 1, "ICMP")
testing$var1 <- replace(testing$var1, testing$var1 == 6, "TCP")
testing$var1 <- replace(testing$var1, testing$var1 == 17, "UDP")

相比直接索引赋值，这种写法更符合函数式编程的风格，也更容易维护。

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