r - если значение в DF составляет между двумя номерами, добавьте 1

library(TeachingDemos)

x <- c(3.2,6,7.8,1,3,2.5)
x <- ifelse(2 %<% x %<% 5, -1, x) 
Andrea Perlato