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

Question

我有以下向量：

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

threshold <- 4

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

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

Answer 1

首先对 threshold 以下的元素进行子集，然后将差值求和为 threshold:

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

# [1] 8

Answer 2

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

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

Sum up the differences between every element of a vector and a given threshold