R语言算工龄

公司2018年曾颁布规定，旧工龄40元，新工龄50元，400元封顶。执行第i年，工龄a年员工工龄奖为pmin(50*a,40*(a-i)+50*i,400)。

 

40元，十年封顶，50元，八年封顶。执行八年后，干净了，pmim(50*a,400)。

 

个人所得税是斜率增加，Excel中用max，R语言中用pmax。

 

循环i生成，每年一个data.frame，字段有工龄、工龄奖、年。rbind后是长表，reshape长表后是宽表。长表是原始表，方便统计画图，宽表是报表，方便阅读。

 

有了数据，再是画图，用ggplot2，设置下facet_wrap，多图布局。