r - 将向量的相似数字分组

Question

假设我有以下向量:
c(4, 5, 5, 8, 12, 12, 12, 13, 15, 15, 18, 19, 20, 23, 37, 37, 37, 37, 37, 41)
我想根据其值将其元素“分组”:小于等于3的数字应被视为属于同一组。
在这种情况下，我想针对向量中出现的每个数字，获取所有与之接近的数字。
例如，

4  -->  c(4,5,5,8)
5  -->  c(4,5,5,8)
8  -->  c(5,8)
12 -->  c(12,12,12,13,15,15)

ETC

可能的是，获取它们的索引可能会很有用...
有什么聪明的方法可以做到这一点吗？

Answer 1

您可以使用以下小功能:

similar <- function(vec, val, bound = 3, index = F) {
    close.index <- which(abs(vec - val) <= bound)
    if (index) return(close.index)
    return(vec[close.index])
}

x <- c(4, 5, 5, 8, 12, 12, 12, 13, 15, 15, 18, 19, 20, 23, 37, 37, 37, 37, 37, 41)
similar(x, 5)
# [1] 4 5 5 8
similar(x, 5, index = T)
# [1] 1 2 3 4
similar(x, 5, bound = 7)
# [1]  4  5  5  8 12 12 12