R：使用if条件替换数据框的值并应用

Question

我在R中的问题是我想通过检查任何条目的条件（即是否为NA）来替换数据框中的值，然后插入从列表中选择的值。嵌套的for循环似乎可以正常工作，但是速度太慢了！

for (i in 1:nrow(data)) {
for (j in 1:ncol(data)) {

 if (is.na(data[i,j]) == FALSE){
 df[i,j] <- some_list[[j]]$freq[ which(some_list[[j]][1] == data[i,j]) ]       
 }

 if (is.na(data[i,j]) == TRUE){
   df[i,j] <- NA
 }

}
}

我希望将应用与ifelse或任何其他快速方法结合使用的解决方案，但不幸的是，我并不认为这是解决方案。