R语言数据框CKD列值替换异常：低于10的数值未转为Yes/No

场景重现 #

原始数据集（部分）：

gender      age     creat     eGFR      CKD
1      1 20.75420  70.35006 66.77359 66.77359
2      1 40.48984 102.39087 37.64458 37.64458
4      1 38.91398  92.26064 43.07771 43.07771
5      1 27.57514  71.13583 63.15280 63.15280
6      0 51.90974 218.35305 10.57759 10.57759
7      1 25.56240  86.98399 50.23518 50.23518

执行替换代码：

Student_data_2$CKD[Student_data_2$CKD >= 60] <- "No" 
Student_data_2$CKD[Student_data_2$CKD < 60] <- "Yes" 

结果异常：CKD列中低于10的数值未被替换为"Yes"，仍保留原数值，其余值替换正常：

gender      age     creat       eGFR              CKD
1        1 20.75420  70.35006  66.773594               No
2        1 40.48984 102.39087  37.644583              Yes
4        1 38.91398  92.26064  43.077715              Yes
5        1 27.57514  71.13583  63.152798               No
15       0 42.27583 196.62734  12.735807              Yes
16       0 59.43180 185.07882  12.309281              Yes
17       1 21.16721 102.46636  42.413975              Yes
18       0 51.78945 131.65945  19.424971              Yes
19       0 61.89885 253.39297   8.314646 8.31464627872699
20       0 76.81865 215.07378   9.225582 9.22558204994784
22       0 53.63316 236.28427   9.519215 9.51921545447276
23       1 31.24610  93.35322  44.548002              Yes

问题原因 #

第一次赋值Student_data_2$CKD[Student_data_2$CKD >= 60] <- "No"会把CKD列的类型从数值型强制转换为字符型。此时，剩下的未被替换的数值（<60）也变成了字符格式存储的数值。

第二次执行Student_data_2$CKD < 60时，是在字符型向量上做数值比较，R会自动尝试把字符转成数值，但对于部分精度较高的字符型数值，可能出现转换失效或比较逻辑异常，导致这些值未被匹配到，最终未完成替换。

解决方案 #

方案1：用ifelse统一替换 #

基于原始数值型列生成完整判断逻辑，一次性完成赋值，避免类型转换带来的问题：

Student_data_2$CKD <- ifelse(Student_data_2$CKD >= 60, "No", "Yes")

方案2：调整替换顺序 #

先替换<60的数值（此时列仍为数值型），再替换≥60的数值，确保所有小值在类型转换前已被处理：

Student_data_2$CKD[Student_data_2$CKD < 60] <- "Yes" 
Student_data_2$CKD[Student_data_2$CKD >= 60] <- "No" 

方案3：使用dplyr的case_when（更清晰） #

如果使用tidyverse工具链，可通过分支判断实现：

library(dplyr)
Student_data_2 <- Student_data_2 %>%
  mutate(CKD = case_when(
    CKD >= 60 ~ "No",
    TRUE ~ "Yes"
  ))

内容的提问来源于stack exchange，提问作者Sanne Noppert