R语言自定义向量匹配数据框转换函数运行失效问题求助

你的代码无法正常运行由两个问题共同导致：

• 语法不完整：函数定义缺少最外层的闭合右大括号}，代码本身不符合R的语法规则，无法正常解析执行。
• 作用域规则限制：R中函数运行在独立的局部环境中，你在函数内部修改的df是全局环境df的临时副本，修改动作不会作用到全局环境的原始数据；同时函数没有定义返回值，修改后的临时数据在函数运行结束后会直接被回收，不会产生任何实际的修改效果。

你直接在全局环境运行同逻辑循环能生效，是因为操作的就是全局环境下的原始df，不存在作用域隔离。

推荐将待处理的数据框也作为函数入参传入，修改完成后返回处理结果，调用时将结果赋值给原对象即可，修正后的完整代码如下：

# 定义修正后的转换函数
Converter <- function(df_input, VectorInp, Col){
  for (i in 1:nrow(df_input)){
    if (is.element(df_input[i, Col], VectorInp)){
      df_input[i, Col] <- which(VectorInp == df_input[i, Col])
    }
  }
  # 返回处理完成的数据框
  return(df_input)
}

# 调用函数，将返回结果赋值给原始df
df <- Converter(df_input = df, VectorInp = Vec, Col = 1)

如果不需要保留函数的循环逻辑，还可以用R原生的向量化函数match()简化实现，无需手写循环，运行效率更高：

# 向量化实现等价效果
df[, 1] <- match(df[, 1], Vec)

运行后TypesOfTouch列的Hug会被转换为3（对应在Vec中的位置），未匹配到的Handshake、Kiss会返回NA，和预期逻辑完全一致。

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