用字符串替换数值范围仅替换某些值。

Question

我有一个数据框架(BRAT2)，其中包含58110个条目的列(oCC_HPE)包含从0到40到2位小数点的范围。

当我试图将值范围重新分配到字符串时，除了5.02-9.99之间的值外，所有值都会正确替换。

我不知道是什么导致了这个问题，我试着改变替换的顺序，改变我的替换标准中的小数位数，但是没有效果。

BRAT2$oCC_HPE[BRAT2$oCC_HPE == 0.00] <- 'None'
BRAT2$oCC_HPE[BRAT2$oCC_HPE > 0.00 & BRAT2$oCC_HPE <= 1.00] <- 'Rare'
BRAT2$oCC_HPE[BRAT2$oCC_HPE > 1.00 & BRAT2$oCC_HPE <= 5.00] <- 'Occasional'
BRAT2$oCC_HPE[BRAT2$oCC_HPE > 5.00 & BRAT2$oCC_HPE <= 15.00] <- 'Frequent'
BRAT2$oCC_HPE[BRAT2$oCC_HPE > 15.00 & BRAT2$oCC_HPE <= 40.00] <- 'Pervasive'

Answer 1

而不是多个赋值(在同一列上的第一个赋值之后，列类型从numeric更改为character，进行下一次比较返回不正确的输出)，使用case_when或cut

BRAT2$oCC_HPE <- cut(BRAT2$oCC_HPE, breaks = c( 0, 1, 5, 15, 40, Inf),
    labels = c("None", "Rare", "Occasional", "Frequent", "Pervasive"))

或者使用来自dplyr的dplyr

library(dplyr)
BRAT2 <- BRAT2 %>%
     mutate(oCC_HPE = case_when(oCC_HPE == 0.00 ~ "None",
            oCC_HPE > 0.00 &oCC_HPE <= 1.00 ~ "Rare",
           oCC_HPE > 1.00 &oCC_HPE <= 5.00 ~  "Occasional",
          oCC_HPE > 5.00 &oCC_HPE <= 15.00 ~ "Frequent" ,
          oCC_HPE > 15.00 &oCC_HPE <= 40.00 ~"Pervasive" ))