Если это between
, то мы можем изменить код на
library(dplyr)
sightingsData <- sightingsData %>%
mutate(quadID = case_when(Quadrant == 424 ~ "ZOI",
Quadrant == 323 |between(Quadrant, 325, 433) ~ "Transit",
TRUE ~ "Adjacent"))
Кроме того, для нескольких групп, опция cut
sightingsData %>%
mutate(quadID, cut(Quadrant, breaks = c(365, 422, 433, Inf),
labels = c("Transit", "ZOI", "Adjacent")))