「我吃的盐比你吃的米还多」，这真的有可能吗？( 二 ) _小知识

所以，在这个问题下，我把“吃的米”界说当作：吃谷类食物[1]的重量，也就是包含大米、小米、大麦、小麦、玉米等等一切粮谷类和用它们建造当作的米饭、面条、米粉之类的加工品。这样一来，结论就能对南边海说神聊方都合用了！
脱手开算！
老张活到三十岁，吃了几多盐
即即是开脑洞，我们也得遵守根基法，应该赐与我们两位自愿介入研究的被试以今朝学术界研究获得的最抱负最健康的看待。
在真空中的球形鸡式的抱负环境下，为了果断响应中华人平易近共和国卫生健康委员会的号召，积极介入“健康中国步履”，我们应该让老张的钠摄入（也就是我们要拿来反推氯化钠 / 食盐摄入量的那个指标），一毫克不差地严酷遵守 2013 版《中国居平易近炊事营养素参考摄入量》[2]傍边对每日（平均）钠摄入的建议量要求。
（我知道你们要说中国人现实上吃盐超标的多，不妨，后面的彩蛋阐发有考虑了这个的，往下翻完！）

文章插图
于是，按照此表，我们利用编程说话 R，成立一个钠摄入计较的参考数据表：

#salt intake datasodium.intake= c(170,350,700,900,1200,1400,1600,1500,1400,1400,1300)age.low.Na= c(0, 0.5,1, 4, 7, 11, 14, 18, 50, 65, 80)age.high.Na=c(age.low.Na[-1],NA)salt.intake=sodium.intake*(23+35.5)/23/1000Na.trait=data.frame(cbind(age.low.Na,age.high.Na,salt.intake,sodium.intake))

运行以上代码，可以获得这样一张包含了各春秋段该吃几多盐的数据表：

文章插图
按照这个数据表，我们可以写一个函数计较老张截至肆意年数时的总钠摄入量：

#function:generic aggregated food intake calculationcalc=function(obs.age,food.trait){ total.intake=numeric(length = length(obs.age)) age=numeric(length = length(obs.age)) age=obs.age #calculate fixed aggregated result for each age strata food.trait$strata.intake=rep(0,nrow(food.trait)) for (i in 1:nrow(food.trait)) { food.trait$strata.intake[i]=(food.trait[i,2]-food.trait[i,1])*food.trait[i,3]*365.25 } #calculate total intake for (i in 1:nrow(food.trait)) { total.intake[age>=food.trait[i,1] & age<food.trait[i,2]]=sum(food.trait$strata.intake[0:(i-1)])+(age[age>=food.trait[i,1] & age<food.trait[i,2]]-food.trait[i,1])*food.trait[i,3]*365.25 } return(total.intake)}

领会 R 编程的列位必然注重到了，原本这个过程是一个小学算术就能搞定的事，但这个函数写得很是通用（也是以看起来复杂了良多），可以基于肆意参考值表计较出肆意春秋下的肆意食物摄入量。
这么写，是但愿后面算小张的米的时辰可以或许再次挪用，以及……一个彩蛋阐发。（哼我就是不在这说是啥！这么想知道的话就直接拉到最后！）
那么此刻，我们经由过程告诉 R 老张有 30 岁，而且挪用算盐的参考值表，来用方才写好的函数计较老张吃了几多盐。
calc(30,Na.trait)R 的运行成果如下：

文章插图
所以，老张活了 30 岁到此刻，若是一向服从党和国度的号召，对峙健康饮食，那么这三十年来他理论上一共吃了 35729.55 g 食盐。
解决了老张的盐，我们再来看小张的米。
对于小张吃了几多米这个问题，相似地，在真空中的球形鸡式的抱负状况下，为了响应中华人平易近共和国卫生健康委员会的“健康中国步履”，我们也应该严酷按照中国营养学会的《中国居平易近炊事指南》[3]傍边的相关要求，给我们生在新中国长在红旗下的中国好少先队员小张同窗以最健康的饮食放置。