R [duplicate] 中的函数和 for 循环问题

问：

我正在使用的功能无法正常工作。该函数是通过使用代码将数据集与另一个数据集中的多个列进行匹配。匹配后，它会将多列替换为代码含义的描述。

代码条件预料：

Birth_IndicatorsConditions：

CleanConditionPreg <- function(Condition){
  codes <- Condition %>% select(starts_with(c("Complications")))
  labels <- data.frame(matrix(NA, nrow(Condition), 0))          
  names <- rep(NA, ncol(codes))

# For each column of codes, match corresponding labels and assign new variable names
    for (i in seq(1, ncol(codes))) {
      labels[,i] <- CodeConditionPreg[match(codes[,i], CodeConditionPreg$code),2] 
      names[i] <- paste0("Other_Complications", i-1)  
    }
  
    # Rename first diagnosis as principal, then append new named columns to data frame
    names[1] <- "Complications"
    colnames(labels) <- names
    Condition <- cbind(Condition, labels) 
   
}

Birth_IndicatorsWithConditions <- CleanConditionPreg(Birth_IndicatorsConditions)

这给了我这个空白值的打印输出，但正在生成新列： 输出 该函数似乎正在工作，但我不知道我缺少什么将标签放入更大的数据集中。

我试图让它看起来像：