R语言基于马拉松参赛选手的比赛时间建模

该博客通过处理2014年至2017年马拉松比赛选手数据,运用贝叶斯估计、非参数方法和分段线性拟合等多元模型,探讨比赛时间与年龄的关系。通过对数据的可视化和统计分析,揭示了30岁至90分钟内选手集中,且随着年龄增长成绩呈向上弯曲的趋势。最后,采用不同方法进行模型构建和预测。
摘要由CSDN通过智能技术生成

目录:1、处理数据(2014年到2017年比赛选手的数据)

           2、使用多种模型对比赛选手的比赛时间建模(贝叶斯估计、非参数方法、分段线性拟合)

           3、对各种模型的可视化

 初衷:建模过程加深对R的掌握。

正文:首先对四年的数据进行处理。

library(RColorBrewer)
library(rethinking)
library(tidyverse)
library(ggsci) # 加载包

df1 <- read.csv("10mile2014M.csv")
df2 <- read.csv("10mile2015M.csv")
df3 <- read.csv("10mile2016M.csv")
df4 <- read.csv("10mile2017M.csv")

str(df1)
str(df4) # 查看数据内容

A <- list(df1,df2,df3,df4)
rs <- sapply(A,nrow) # 每一年的人数

names(df4)[9] = names(df3)[9] <- "clock.time"
names(df4)[3] = names(df3)[3] <- "home.town"
df1 
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

麻利麻利哄吧

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值