将ifelse()应用于在另一列上有动态意外事件的多个列

由于下一列取决于前一列,因此我们可以使用 for 使用索引循环以执行此操作

for(i in 2:ncol(prodmap)) prodmap[[i]] <- ifelse(is.na(prodmap[[i]]), 
              prodmap[[i-1]], prodmap[[i]])
prodmap
#  l1 l2 l3 l4
#1  A  A  A  A
#2  A  B  B  B
#3  A  B  C  C
#4  A  B  C  D

如果要使用列名而不是列索引,请创建两个 vector s列名称,删除第一个和最后一个列名称(“nm1”,“nm2”),循环遍历 矢量 ,根据索引提取相应的列名并更新“prodmap”列

nm1 <- tail(names(prodmap), -1)
nm2 <- head(names(prodmap), -1)
for(i in seq_along(nm1)) {
  prodmap[[nm1[i]]] <- ifelse(is.na(prodmap[[nm1[i]]]), 
                               prodmap[[nm2[i]]],
                               prodmap[[nm1[i]]])
   }

注意:假设NAS可以分布在列中的任何位置

使用选项 upper.tri

prodmap[upper.tri(prodmap)] <- t(prodmap)[upper.tri(prodmap)]
prodmap
#  l1 l2 l3 l4
#1  A  A  A  A
#2  A  B  B  B
#3  A  B  C  C
#4  A  B  C  D

其目的是填充所有在 prodmap[upper.tri(prodmap)] 我们第一次换位时得到的值 prodmap 然后从上三角中找到的结果矩阵中提取值。