
前言
开始需要默默的行动,结束才需要震耳的嘶吼!

听说有人为了减肥花费了【十万】,我满是震惊!
其实各种所谓的减肥训练以及产品,大多都是提供情绪价值,最终靠的还是自身消耗。摄入量不足,需求量又很大,那势必不会再储存,只会消耗,长期的结果自然而言就是减肥「成功」。
所以,减肥的第一个重点就是【少吃】!
为了打破流言,验证结果,亲身实践,100天减重分析!为了让结果更加可信,纳入了男女(Male/Female)两例实践。减肥成果,男性从84.85 kg减到68.55 kg,一共掉32.6斤。女性从63.2 kg减到52.3 kg,一共掉21.8斤。这验证了大基数比小基数掉的快!
从减重曲线来看,体重的降低不是持续性的,中间会有波动以及停滞,也就是所谓的「平台期」,这是正常的。至于减肥的方法,没有花里胡哨的「减肥餐」,也没有花里胡哨的「热量计算」。很简单就是不吃晚饭!具体的过程为:
第一周早中正常,晚上吃水煮菜!
第二周早中正常,下午吃少量水果,晚饭不吃!
此之后早中正常,下午5点后不再吃任何东西!
结束减肥最后一周,早中正常吃,晚饭吃3-5分饱,逐步增加!
所谓的早中正常就是真的正常【但不是暴饮暴食】,平常吃啥就是吃啥,例如早餐鸡蛋牛奶豆浆,中午也不忌讳所谓的碳水,重口味,毕竟100天之中,中午至少吃过5-6次牛油火锅!由于晚上不吃饭,所以100天至少减少了100次进食,所以这就是节约了!
很多人会说,晚上不吃太饿忍不住,怎么办?忍!再忍!
所以,减肥的第二个重点就是【毅力】!
然后就是流言的节食减肥会「反弹」,无稽之谈,人不是皮球,不会「弹」。结束前5天,因为出差,有美食投喂,出差4天每天都吃的很撑,有时候一天4顿,导致回来的体重相比之前骤升4斤,但是回归正常饮食后,早中正常,晚上吃的少,体重4天内很快恢复到之前的水平。之后早中晚正常吃【不暴饮暴食,吃好了就停!】,体重就会维持!
所以,减肥的第三个重点就是【维持】!
最后就是关于运动和身体状况,因为不是「绝食」性减肥,所以没有出现掉发,身体垮的情况。100天之中,男性有一次咽喉发炎,出现在减重期间做了一次大消耗的运动,可能是偶发,也可能是抵抗力下降。女性在100天减肥体检身体健康,无任何疾病发生!之后,就是靠运动进行力量训练,维持体重和身材了!
祝所有人成功!

(减重曲线,本来还想做其他更高深的分析,后来觉得,画蛇添足,这个曲线就是最好的证明,无需其他解释!)
END!
画图代码参考:
复现《Cell》图表:柱状图|添加分组注释|legend设置
df <- read.csv('humsn_weight.csv',header = T)
df$date <- format(
as.Date(df$date, format = "%Y年%m月%d日"),
"%Y/%m/%d") #我录入的数据格式是2025年12月1日,将其转化为2015/12/1的形式
library(ggplot2)
df$date <- factor(df$date,levels = df$date)
library(tidyr)
library(dplyr)
df_long <- df %>%
pivot_longer(
cols = c(Male, Female),
names_to = "sex",
values_to = "weight"
)
ggplot(df_long,aes(x = date,y =weight,group=sex,color=sex))+
geom_point(aes(size=weight), alpha=0.5)+
scale_size_continuous(range = c(0, 10),breaks = c(50, 55,60,65,70,75,80,85))+
stat_summary(geom = 'line',fun='mean',cex=0.8,linetype=1,color='black')+
scale_color_manual(values = c("#E41A1C","#377EB8"))+
geom_hline(yintercept = 67.5, linetype=2, cex=1,color="#377EB8")+
annotate(geom = 'text', label="Male IBW=67.5", x=30, y=69)+
annotate(geom = 'text', label="starting weight=84.85", x=5, y=80)+
geom_hline(yintercept = 50, linetype=2, cex=1,color="#E41A1C")+
annotate(geom = 'text', label="Female IBW=50", x=30, y=52)+
annotate(geom = 'text', label="starting weight=63.2", x=5, y=64)+
theme_bw()+
theme(panel.grid.major=element_blank(),panel.grid.minor=element_blank())+
theme(axis.text.x = element_text(colour = 'black',angle = 90,size = 15),
axis.text.y = element_text(colour = 'black',size = 15))+
labs(y='Weight(kg)')+
coord_flip()