cut
будет достаточно удобно вырезать ваши данные.
# cut needs all endpoints explicitly specified, including outside bounds
height_cuts <- c(-Inf, 1.5, 1.9, Inf)
hcut <- cut(height, height_cuts, labels=c("low", "medium", "high"))
ETA: интервалы будут составлять <= 1,5, <= 1,9. Если вы хотите, чтобы интервалы были <1,5, <1,9, укажите <code>right=FALSE:
hcut <- cut(height, height_cuts, right=FALSE, ...)