R语言矩阵缺失值处理，谢谢指导~

Question

我有10列，20行的矩阵中随机包含缺失值，
我想把NA用每行的中位数替代，我该怎么找到NA的行再用该行缺失值替换呢？咋写代码呢？？？

Answer 1

借助median求得中位数，然后用is.na找出NA的值并且替换

 for(i in 1:nrow(test_mat)){
  #求当前行的中位数，第二个参数表示去除NA值
  temp_median <- median(test_mat[i, ], na.rm = TRUE) 
  #用中位数替代NA值
  test_mat[i, is.na(test_mat[i,])] <- temp_median
}