边际税率计算R函数优化：为超18200收入添加固定税额

云原生阿岚

2026-8-14

边际税率函数的错误分析与修正

错误分析

你错误地将fixed数组与按档计算的税额分量做逐元素相加再求和，完全偏离了“仅对超过第一档收入加固定税额”的需求
pmin(income, fixed)的逻辑完全不适用：当income < 18200时，fixed中的100会被参与计算，导致即使未达标也会额外增加税额，且这种逐元素累加的方式根本不是“额外加一笔固定税额”的正确实现

修正方案

不需要把fixed设为数组，直接添加一个参数控制固定税额，在基础税额计算完成后，根据收入是否超过第一档来决定是否加上固定税额：

income_tax <- 
function(income,
         brackets = c(18200, 37000, 80000, 180000, Inf),
         rates = c(0, .19, .325, .37, .45),
         fixed_tax = 100) {        
    # 计算基础边际税额
    base_tax <- sum(diff(c(0, pmin(income, brackets))) * rates)
    # 仅当收入超过第一档时添加固定税额
    total_tax <- base_tax + ifelse(income > brackets[1], fixed_tax, 0)
    return(total_tax)
}