Я предполагаю, что у вас есть кадр данных, а не вектор.Может быть, что-то вроде этого:
df <- data.frame(id = 1:10, foo = runif(10))
givenID <- 8
tolerance <- 0.2
subset(df, abs(foo - foo[id == givenID]) < tolerance)$id
Он будет включать в вывод указанный идентификатор, но вы можете избавиться от него, если вам нужно, обернуть его в функцию и т. Д.