r - 列中的下一个值，小于或等于与当前值的差值

Question

我想根据另一列中的值从一列中检索值。我已经包含了一个应该有助于解释的示例。
对于这个例子，如果我们说我们想要返回 index 中的值number 中的下一个值在哪里小于或等于当前数字 10，我们将得到列 ind_return :

   index  number  ind_return
1      A     100           C
2      B     105           C
3      C      84          NA
4      D      90           G
5      E     120           F
6      F     110           G
7      G      75          NA



df <- data.frame(index = c("A", "B", "C", "D", "E", "F", "G"),
             number = c(100, 105, 84,  90,  120, 110,  75))

问题是，我们怎样才能得到 ind_return ?

Answer 1

您可以使用 outer得到差异。排除该 upper.tri和 diag然后使用 which 获取行在 apply .

i <- outer(df$number, df$number, "-")
i[upper.tri(i)] <- NA
diag(i) <- NA
df$index[apply(i < -9, 2, function(x) which(x)[1])]
#[1] "C" "C" NA  "G" "F" "G" NA 

或者在 sapply 中进行比较环形

sapply(1:nrow(df), function(i) {
  df$index[i+which(df$number[i+seq_len(nrow(df)-i)] - df$number[i] < -9)[1]]
})
#[1] "C" "C" NA  "G" "F" "G" NA