如何在R数据帧中用行均值替换缺失值？

如果我们在R数据帧的每一列中都具有相似的特征，则可以用行均值替换丢失的值。要用row替换丢失的值，我们可以使用na.aggregatezoo软件包的功能，但是我们需要使用数据帧的转置版本作为na.aggregatecolumn means的工作。

例1

考虑以下数据帧-

x1<−sample(c(NA,1,5),20,replace=TRUE)
x2<−sample(c(NA,10,25),20,replace=TRUE)
x3<−rpois(20,5)
df1<−data.frame(x1,x2,x3)
df1

输出结果

 x1 x2 x3
1 5 10 4
2 1 NA 2
3 NA NA 5
4 5 NA 2
5 1 25 8
6 1 10 2
7 1 NA 4
8 5 NA 4
9 5 25 3
10 1 NA 5
11 1 NA 7
12 5 NA 6
13 1 25 4
14 5 NA 8
15 1 25 6
16 NA 10 6
17 5 10 5
18 5 25 8
19 NA 25 3
20 NA 25 5

加载Zoo包并用行均值替换缺失值-

示例

library(zoo)
df1[]<−t(na.aggregate(t(df1)))
df1

输出结果

 x1 x2 x3
1 5 10.0 4
2 1 1.5 2
3 5 5.0 5
4 5 3.5 2
5 1 25.0 8
6 1 10.0 2
7 1 2.5 4
8 5 4.5 4
9 5 25.0 3
10 1 3.0 5
11 1 4.0 7
12 5 5.5 6
13 1 25.0 4
14 5 6.5 8
15 1 25.0 6
16 8 10.0 6
17 5 10.0 5
18 5 25.0 8
19 14 25.0 3
20 15 25.0 5

例2

y1<−sample(c(NA,525,235,401),20,replace=TRUE)
y2<−rnorm(20,500,51.24)
y3<−sample(c(NA,35,47),20,replace=TRUE)
df2<−data.frame(y1,y2,y3)
df2

输出结果

   y1   y2     y3
1 525 555.4212 47
2 401 508.7781 47
3 401 488.3973 47
4 NA 546.6707  35
5 401 497.5346 47
6 235 460.7668 35
7 NA 495.0879  35
8 401 441.4254 47
9 NA 446.8322  47
10 235 484.8106 NA
11 235 517.4665 47
12 NA 450.1524 NA
13 525 485.2432 47
14 525 506.0650 35
15 525 470.7504 47
16 NA 370.8190  35
17 525 509.6385 35
18 525 471.0552 35
19 235 468.6052 35
20 401 472.6163 47

用行代替缺失值-

示例

df2[]<−t(na.aggregate(t(df2)))
df2

输出结果

      y1      y2       y3
1 525.0000 555.4212 47.0000
2 401.0000 508.7781 47.0000
3 401.0000 488.3973 47.0000
4 290.8353 546.6707 35.0000
5 401.0000 497.5346 47.0000
6 235.0000 460.7668 35.0000
7 265.0440 495.0879 35.0000
8 401.0000 441.4254 47.0000
9 246.9161 446.8322 47.0000
10 235.0000 484.8106 359.9053
11 235.0000 517.4665 47.0000
12 450.1524 450.1524 450.1524
13 525.0000 485.2432 47.0000
14 525.0000 506.0650 35.0000
15 525.0000 470.7504 47.0000
16 202.9095 370.8190 35.0000
17 525.0000 509.6385 35.0000
18 525.0000 471.0552 35.0000
19 235.0000 468.6052 35.0000
20 401.0000 472.6163 47.0000