如何在R数据帧列中将NA替换为0，并将其他值替换为1？
有时我们想使用0和1将R数据帧的列转换为二进制列，这在数据帧的列中有一些NA且由于某些原因而其他值可以转换为1的情况下尤其如此。特征。要将NA替换为0，并将其他值替换为1，我们可以使用ifelse函数。
例1
考虑以下数据帧-
x1<−1:20 x2<−sample(c(NA,rnorm(5)),20,replace=TRUE) df1<−data.frame(x1,x2) df1输出结果
x1 x2 1 1 1.6562106 2 2 NA 3 3 2.2323438 4 4 2.2323438 5 5 1.2038679 6 6 2.2323438 7 7 NA 8 8 1.6562106 9 9 NA 10 10 1.2038679 11 11 −0.6898052 12 12 2.2323438 13 13 2.2323438 14 14 1.6562106 15 15 NA 16 16 1.2038679 17 17 NA 18 18 −0.6898052 19 19 2.2323438 20 20 2.2323438
将x2列中的NA和0以及其他值替换为1-
示例
df1$x2<−ifelse(is.na(df1$x2),0,1) df1输出结果
x1 x2 1 1 1 2 2 0 3 3 1 4 4 1 5 5 1 6 6 1 7 7 0 8 8 1 9 9 0 10 10 1 11 11 1 12 12 1 13 13 1 14 14 1 15 15 0 16 16 1 17 17 0 18 18 1 19 19 1 20 20 1
例2
y1<−LETTERS[1:20] y2<−sample(c(NA,rpois(5,2)),20,replace=TRUE) df2<−data.frame(y1,y2) df2输出结果
y1 y2 1 A 2 2 B 5 3 C NA 4 D 3 5 E 1 6 F NA 7 G 1 8 H 3 9 I 5 10 J 5 11 K NA 12 L NA 13 M 2 14 N 5 15 O 3 16 P 2 17 Q 2 18 R 1 19 S 2 20 T NA
在y2栏中用0和其他值将NA替换为1-
示例
df2$y2<−ifelse(is.na(df2$y2),0,1) df2输出结果
y1 y2 1 A 1 2 B 1 3 C 0 4 D 1 5 E 1 6 F 0 7 G 1 8 H 1 9 I 1 10 J 1 11 K 0 12 L 0 13 M 1 14 N 1 15 O 1 16 P 1 17 Q 1 18 R 1 19 S 1 20 T 0