R 重新编码和赋值目标扩展到非语言对象

我正在尝试重新编码一个变量

library(car)

对我来说没有问题

 bd2011$diag = recode(bd2011$value, 
                 "'7400' <- 'dia1'; else = 'b'")

bd2011$diag=重新编码（bd2011$value，
“'7400'您不应该单引号引用LHS表达式（除非它们是字符值），也不应该使用
”

这就是最后一个else结果（它将忽略“

”

谢谢。我去掉了引号，没有错误。但是值是chr.>str（bd2011）“data.frame”：1523420 obs.共6个变量：$data.yr:chr“2011”“2011”“2011”“2011”…$hospital.id:chr“0622”“0622”“0622”“…$patient.ctrl.num:chr“1564036”“1564127”“1564182”“1564215”…$medical.health.rec.num:chr“007054047”“007054055”“007054059”“007054061”…$variable:Factor w/19 levels“diagnostics1”“diagnostics2”…：11.$value:chr“V3000”“V3000”“V3000”“V3000”…该评论毫无用处。请将其删除并编辑您的Q，使其具有可复制示例的格式化材料。

bd2011$diag = recode(bd2011$value,
                 " c('7400','7401') <- 'dia1'; else = 'b'")  

 Error in c("7400", "7401") <- "dia1" : 
  target of assignment expands to non-language object

c(7,8,9)='high'

c('7400','7401') <- 'dia1'

for (term in recode.list) {
    if (0 < length(grep(":", term))) {...}
    else if (0 < length(grep("^else=", squeezeBlanks(term)))) { ...}
    else {...}

        set <- eval(parse(text = strsplit(term, "=")[[1]][1]))
        target <- eval(parse(text = strsplit(term, "=")[[1]][2]))
        for (val in set) {
            if (is.na(val)) 
              result[is.na(var)] <- target
            else result[var == val] <- target