R语言模拟人类生活预期寿命动态可视化动画图gif

Posted tecdat

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了R语言模拟人类生活预期寿命动态可视化动画图gif相关的知识,希望对你有一定的参考价值。

原文链接:http://tecdat.cn/?p=13552


 

这周,我在http://waitbutwhy.com/上发现了一张图片  ,它代表了典型的人类生活,

技术图片技术图片?

 

我觉得很有趣。但是第一个问题是,我不理解下面的限制:90年,不是平均寿命。第二个问题是,当您查看图片时,它不能像看起来的那样静态。0岁时的预期寿命与30岁或50岁时的预期寿命不同。因此,我尝试使用预期寿命表制作动画图表。这是一个代码,用于生成不同时期的生活表(我在这里区分是男性还是女性)

L2 <- lifetable(france.fcast)
ex2=L2$ex
L1=lifetable(fr.mort,series="female")
ex1=L1$ex
exF=cbind(ex1,ex2)
france.LC1 <- lca(fr.mort,adjust="e0",series="male",years=c(1900,2100))
技术图片

根据这些生命表,我们可以得出某个特定年份(例如1950年)出生的人在各个年龄段(例如50、51、52等)的剩余预期寿命。根据这些预期的剩余寿命,我们可以绘制


plot(va%%52,va%/%52,cex=.6,pch=15,col=c("light yellow","pink","white")[1+
(va>=age*52)*1+(va>(age+F[age+1])*52)*1],ylim=c(100,0),axes=FALSE,xlab="Week",
ylab="Age",main=paste("Woman, born on ",yearborn,
", age ",age,sep=""))
技术图片

例如,如果我们想要上面的图,对于1980年出生的30岁的某人,我们使用

picture(1980,30)
技术图片

现在,如果我们运行代码以获取动画gif,就可以为1950年出生的人获得

技术图片技术图片?

 

对于2000年出生的人

技术图片技术图片?

 

现在,如果我可以获得历史数据集,包括在学校花费的平均时间,退休年龄等,可以将其添加到图表中。

以上是关于R语言模拟人类生活预期寿命动态可视化动画图gif的主要内容,如果未能解决你的问题,请参考以下文章

r语言绘制动态统计图:绘制世界各国的人均GDP,出生时的预期寿命和人口气泡图动画动态gif图|附代码数据

R语言ggplot2和gganimate包可视化动态动画气泡图(Animated Bubble chart):使用gganimate包创建可视化gif动图

R语言对布丰投针(蒲丰投针)实验进行模拟和动态可视化生成GIF动画

R语言gganimate包创建可视化gif动图可视化动图:gganimate包创建动态线型图动画基于transition_time函数使用geom_point函数显示动画移动的数据点

R语言gganimate包创建可视化gif动图可视化动图:创建动态散点图动画基于transition_time函数使用shadow_wake函数配置动画的渐变效果(gradual falloff)

R语言gganimate包创建可视化gif动图:ggplot2可视化静态条形图(bar plot)gganimate包创建动态条形图(bar plot)动画基于transition_time函数