如何在Excel或R中调整变量增减并保持总和恒定（100%）

场景1：单变量增加，另一变量减少 #

假设初始百分比数据在A1:B2：A1为"变量X"，B1值30%；A2为"变量Y"，B2值70%，总和刚好100%。现在要把X提升到40%，同时让Y减少来维持总和：

• 先算调整差值：40% - 30% = 10%
• 直接修改B2为=B2 - 10%，手动计算后输入60%也可以，此时Y变为60%，总和仍为100%
• 更灵活的方式：单独设一个调整值单元格（比如D1），输入要增加的幅度（比如10%），然后X的新值设为=B1 + D1，Y的新值设为=B2 - D1，改D1就能快速调整

场景2：单变量增加，两个变量减少 #

假设初始数据在A1:C3：A1=变量X（30%），A2=变量Y（40%），A3=变量Z（30%），总和100%。现在要把X增加到40%（差值+10%），从Y和Z分摊减少量：

• 若平均分摊：
  • X的新值：=B1 + 10%（变为40%）
  • Y的新值：=B2 - 10%/2（变为35%）
  • Z的新值：=B3 - 10%/2（变为25%）
• 若按现有比例分摊（Y占40%、Z占30%，总基数70%）：
  • Y需要减少：10% * (40%/70%) ≈ 5.71%，公式为=B2 - 10%*(B2/(B2+B3))
  • Z需要减少：10% * (30%/70%) ≈ 4.29%，公式为=B3 - 10%*(B3/(B2+B3))

以下是基于向量的两种场景代码，数据框格式可同理调整：

场景1：单变量增，另一变量减 #

# 初始百分比向量
percentages <- c(X = 0.3, Y = 0.7)
# 设定X的增加幅度
increase_amount <- 0.1
# 执行调整
percentages["X"] <- percentages["X"] + increase_amount
percentages["Y"] <- percentages["Y"] - increase_amount
# 验证总和（输出1.0即100%）
sum(percentages)

场景2：单变量增，两个变量减 #

# 初始百分比向量
percentages <- c(X = 0.3, Y = 0.4, Z = 0.3)
# 设定X的增加幅度
increase_amount <- 0.1
# 指定要分摊减少量的变量
reduce_vars <- c("Y", "Z")
# 按现有比例计算各变量需减少的量
reduce_ratios <- percentages[reduce_vars] / sum(percentages[reduce_vars])
percentages[reduce_vars] <- percentages[reduce_vars] - increase_amount * reduce_ratios
percentages["X"] <- percentages["X"] + increase_amount
# 验证总和（输出1.0即100%）
sum(percentages)

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