我有以下向量的这种类型的数据。
v1 <- c(15, 20, 30, 45)
v2 <- c(17, 23, 30, 55)我希望仅当元素落入v1中的某个元素范围内时,才匹配每个元素。我的代码是:
ifelse(v1>v2-5, match(v1, v2), 0)我想要的输出是:[1] 1 2 3 0
相反,我得到的是:[1] NA NA 3 0
为什么前两个元素不匹配?
发布于 2017-09-28 03:21:57
第三个值是v1中唯一与v2匹配的元素,因此即使满足您的条件,也可以为其他元素获取NA。ifelse()将为返回条件的TRUE值的元素插入下列值:
match(v1, v2)[v1 > v2 - 5]
# [1] NA NA 3您可以尝试在那里使用序列:
ifelse(v1 > v2 - 5, seq_along(v1), 0)
# [1] 1 2 3 0发布于 2017-09-28 03:22:46
也许你在找findInterval。
findInterval(v1, c(0, v2))
#[1] 1 2 4 4结果的第三个值错误,因此必须将参数left.open设置为TRUE。
findInterval(v1, c(0, v2), left.open = TRUE)
#[1] 1 2 3 4
ifelse(v1 > v2 - 5, findInterval(v1, c(0, v2), left.open = TRUE), 0)
#[1] 1 2 3 0发布于 2017-09-28 03:23:17
sapply(v1, function(x){
temp = which(v2 >= x & abs(v2 - x) < 5)[1]
replace(temp, is.na(temp), 0)
})
#[1] 1 2 3 0https://stackoverflow.com/questions/46455559
复制相似问题