如何用R数据帧列中的中值替换缺失值？
要用中位数替换缺失值，我们可以使用与用均值替换缺失值相同的技巧。例如，如果我们有一个包含x和y列的数据帧df，其中两列都包含一些缺失值，则可以用df$x[is.na（df$x）]<-x和y的中位数（df$x，na.rm=TRUE）我们可以做与df$y[is.na（df$y）]<-median（df$y，na.rm=TRUE）相同的操作。
示例
请看以下数据帧-
set.seed(1112) x1<-LETTERS[1:20] x2<-sample(c(NA,rpois(19,8)),20,replace=TRUE) df1<-data.frame(x1,x2) df1
输出结果
x1 x2 1 A 10 2 B 11 3 C 8 4 D 6 5 E 6 6 F NA 7 G 10 8 H 8 9 I 8 10 J 7 11 K NA 12 L 12 13 M 7 14 N 6 15 O 10 16 P 7 17 Q 7 18 R 8 19 S 11 20 T 4 median(df1$x2) [1] 8
用剩余值的中位数替换x2中的缺失值-
df1$x2[is.na(df1$x2)]<-median(df1$x2,na.rm=TRUE) df1
输出结果
x1 x2 1 A 10 2 B 11 3 C 8 4 D 6 5 E 6 6 F 8 7 G 10 8 H 8 9 I 8 10 J 7 11 K 8 12 L 12 13 M 7 14 N 6 15 O 10 16 P 7 17 Q 7 18 R 8 19 S 11 20 T 4
让我们看另一个例子-
示例
ID<-1：20评分<-sample（c(NA,1,2,3,4,5)，20，replace=TRUE）df2<-data.frame(ID,Ratings)df2
输出结果
ID Ratings 1 1 3 2 2 1 3 3 1 4 4 4 5 5 1 6 6 4 7 7 2 8 8 3 9 9 2 10 10 2 11 11 3 12 12 5 13 13 5 14 14 1 15 15 4 16 16 1 17 17 4 18 18 NA 19 19 1 20 20 NA median(df2$Ratings,na.rm=TRUE) [1] 2.5
用剩余值的中位数替换评级中的缺失值-
示例
df2$Ratings[is.na(df2$Ratings)]<-median(df2$Ratings,na.rm=TRUE) df2
输出结果
ID Ratings 1 1 3.0 2 2 1.0 3 3 1.0 4 4 4.0 5 5 1.0 6 6 4.0 7 7 2.0 8 8 3.0 9 9 2.0 10 10 2.0 11 11 3.0 12 12 5.0 13 13 5.0 14 14 1.0 15 15 4.0 16 16 1.0 17 17 4.0 18 18 2.5 19 19 1.0 20 20 2.5