Question

我正在努力计算“价值逆转率”，例如值的变化在特定值范围内（=“ Gap”）。

数据示例：

a <- c(-30,0,20,23,24,25,26,27,28,29,30,5)
Gap <- 10

目标：

计算值的变化量10，在这种情况下，解决方案将是= 4

（1。从-30更改为0,2。从0更改为20,3。从20，....，更改为30,4。从30更改为5）

任何帮助如何计算？

Answer 1

已编辑。现在可以在两个示例中使用：

Gap <- 10

value_changes <- function(vec, gap) {
  res <- 0
  retain_min <- retain_max <- vec[1]
  cat("i:", 1, ", vec[i]:", vec[1], ", retain_min:", retain_min, ", retain_max:", retain_max, ", res:", res, "\n")
  for (i in 2:length(vec)) {
    if (abs(vec[i] - retain_min) >= gap || abs(vec[i] - retain_max) >= gap) {
      res <- res + 1
      retain_min <- retain_max <- vec[i]
    }
    if (vec[i] < retain_min) retain_min <- vec[i]
    if (vec[i] > retain_max) retain_max <- vec[i]
    cat("i:", i, ", vec[i]:", vec[i], ", retain_min:", retain_min, ", retain_max:", retain_max, "res:", res, "\n")
  }
  res
}
value_changes(c(5, 25, 17, 7, -2, 12), Gap)
value_changes(c(-30,0,20,23,24,25,26,27,28,29,30,5), Gap)

#i: 1 , vec[i]: 5 , retain_min: 5 , retain_max: 5 , res: 0 
#i: 2 , vec[i]: 25 , retain_min: 25 , retain_max: 25 res: 1 
#i: 3 , vec[i]: 17 , retain_min: 17 , retain_max: 25 res: 1 
#i: 4 , vec[i]: 7 , retain_min: 7 , retain_max: 7 res: 2 
#i: 5 , vec[i]: -2 , retain_min: -2 , retain_max: 7 res: 2 
#i: 6 , vec[i]: 12 , retain_min: 12 , retain_max: 12 res: 3 
#[1] 3
#
#i: 1 , vec[i]: -30 , retain_min: -30 , retain_max: -30 , res: 0 
#i: 2 , vec[i]: 0 , retain_min: 0 , retain_max: 0 res: 1 
#i: 3 , vec[i]: 20 , retain_min: 20 , retain_max: 20 res: 2 
#i: 4 , vec[i]: 23 , retain_min: 20 , retain_max: 23 res: 2 
#i: 5 , vec[i]: 24 , retain_min: 20 , retain_max: 24 res: 2 
#i: 6 , vec[i]: 25 , retain_min: 20 , retain_max: 25 res: 2 
#i: 7 , vec[i]: 26 , retain_min: 20 , retain_max: 26 res: 2 
#i: 8 , vec[i]: 27 , retain_min: 20 , retain_max: 27 res: 2 
#i: 9 , vec[i]: 28 , retain_min: 20 , retain_max: 28 res: 2 
#i: 10 , vec[i]: 29 , retain_min: 20 , retain_max: 29 res: 2 
#i: 11 , vec[i]: 30 , retain_min: 30 , retain_max: 30 res: 3 
#i: 12 , vec[i]: 5 , retain_min: 5 , retain_max: 5 res: 4 
#[1] 4

Answer 2

也许：

length(unique(cumsum(a %% Gap == 0)))
# [1] 4

这假设您的数据中有“ 10”，例如：如果我们有以下内容，则此方法将无效：

a <- c(-31,1,21,23,24,25,26,27,28,29,32,5)
length(unique(cumsum(a %% Gap == 0)))
# [1] 1

计算价值反转率/具有特定价值差异的行数

2 个答案: