目录: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