总结向量的每个元素与给定阈值之间的差异

如何解决总结向量的每个元素与给定阈值之间的差异

我有以下向量：

my_vec <- c(2,3,5,2,6,7,4,8)

threshold <- 4

有没有办法总结 my_vec 的所有较小元素与阈值相比的差异？

所以这个例子的预期结果应该是 8 (2+1+0+1+0+2+0+0+2+0+0+0) 就我而言，总和 (8) 就是我所需要的（我不需要每个元素之间的差异）。我通过使用循环尝试了这一点，但不幸的是，有几个不同长度的向量，所以我无法在只有 10 个元素的向量上从 1:12（如上述向量）开始循环。

解决方法

threshold 下的第一个子集元素，然后将差值相加到 threshold：

threshold <- 4
sum((threshold - my_vec[my_vec < threshold]))

# [1] 8

,

您可以在 pmin 和 my_vec 之间使用 threshold 来获得它们的最小值，并获得 sum 与 threshold 的差异。

sum(threshold - pmin(my_vec,threshold))
#[1] 8