Try this
sick <- data.frame(
RISQUE = c("0","1","2","3","4","5","6")
)
print(sick)
#> RISQUE
#> 1 0
#> 2 1
#> 3 2
#> 4 3
#> 5 4
#> 6 5
#> 7 6
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
sick %>%
mutate(cas =
ifelse(RISQUE %in% c("1", "2"), "subclinique",
ifelse (RISQUE %in% c("3", "4", "5") , "clinique",
ifelse(RISQUE == "0", "saine","unknown"))
))
#> RISQUE cas
#> 1 0 saine
#> 2 1 subclinique
#> 3 2 subclinique
#> 4 3 clinique
#> 5 4 clinique
#> 6 5 clinique
#> 7 6 unknown
Created on 2021-09-07 by the reprex package (v2.0.0)