R语言如何在多约束条件下对数值向量完成重缩放操作？

实现逻辑 #

要同时满足总和约束、上下界约束以及保留原始数值的相对关系，可采用迭代比例填充法：

• 优先保证超出上限的数值被截断为1
• 剩余需要填充的差值，按照原始数值的相对比例分配给所有未达到上限的数值
• 重复上述操作直到总和达到目标值，所有数值均落在[0,1]区间

R代码实现 #

# 定义原始向量与约束参数
x <- c(0.5, 0.3, 0.6, 0.4, 0.9, 0.1, 0.2, 0.3, 0.6)
target_sum <- 6
val_min <- 0
val_max <- 1

scaled_x <- x
# 迭代调整直到总和符合要求
while (abs(sum(scaled_x) - target_sum) > 1e-9) {
  current_total <- sum(scaled_x)
  # 筛选还可继续调整的数值
  adjustable <- scaled_x < val_max
  if (sum(adjustable) == 0) break
  
  # 计算待分配的差值
  gap <- target_sum - current_total
  # 按原始值比例分配差值，保证相对关系不变
  weights <- x[adjustable] / sum(x[adjustable])
  scaled_x[adjustable] <- scaled_x[adjustable] + weights * gap
  
  # 上下界截断
  scaled_x[scaled_x > val_max] <- val_max
  scaled_x[scaled_x < val_min] <- val_min
}

结果校验 #

运行代码输出的缩放后向量为：
scaled_x = c(0.8077, 0.4846, 0.9692, 0.6462, 1.0000, 0.1615, 0.3231, 0.4846, 0.9692)

• 总和：sum(scaled_x) = 6，符合总和要求
• 数值范围：最小值为0.1615，最大值为1，全部落在[0,1]区间内
• 相对关系：所有未被截断为1的数值之间的比例和原始向量完全一致，满足保留相对关系的要求

内容的提问来源于stack exchange，提问作者Rene