行によってNA値を交換し、私はで取得した行列から、私のNA値を置き換えたい

Question

を意味します。これらの値は、対応する行の平均値である必要があり

read.table(…) 

。すなわち、表の次の行

：

1 2 1 NA 2 1 1 2 

が

1 2 1 1.43 2 1 2 

なるありがとうございました。

Answer 1

x[is.na(x)] <- mean(x, na.rm=TRUE) # for vectors or for a matrix as a whole 

t(apply(x, 1, function(xv) { xv[is.na(xv)] <- 
            mean(xv, na.rm=TRUE) 
           return(xv)} 
     )) # for a row-oriented sol'n 

Answer 2

a = c(NA, 1, 2, 3, 10) 
a[which(is.na(a)==TRUE)] = mean(a,na.rm = T) 

Answer 3

ここではいくつかのサンプルデータです。

m <- matrix(1:16, nrow=4) 
m[c(1,4,6,11,16)] <- NA 

ここで私は行の手段でミスを記入します。

k <- which(is.na(m), arr.ind=TRUE) 
m[k] <- rowMeans(m, na.rm=TRUE)[k[,1]] 

データはdata.frameになります。最初にas.matrixを使用して行列に変換する必要があります。あなたはそのフォーマットでそれを残したいと思うかもしれません。戻る使用as.data.frameを変換する。