原创R语言NBA数据分析案例附代码数据Word文件下载.docx
- 文档编号:18611051
- 上传时间:2022-12-29
- 格式:DOCX
- 页数:18
- 大小:249.12KB
原创R语言NBA数据分析案例附代码数据Word文件下载.docx
《原创R语言NBA数据分析案例附代码数据Word文件下载.docx》由会员分享,可在线阅读,更多相关《原创R语言NBA数据分析案例附代码数据Word文件下载.docx(18页珍藏版)》请在冰豆网上搜索。
0横扫,新秀即以巅峰状态示人的大鲨鱼—奥尼尔和便士哈达威领衔的魔术队
1995~1996
超音速
72-10的神迹,一直保持到了15~16赛季,公牛王朝最强的一年,没毛病
2000~2001
湖人
76人
1
巅峰期的OK组合,打起球来让对手想骂人,季后赛15:
1,只因AI逆天的手感才被打破不败金身
2002~2003
马刺
篮网
巅峰期的邓肯搭档老当益壮的名人堂成员大卫.罗宾逊组成内线双塔,更有帕克,吉诺比利,GDP组合也已然有了雏形,板凳上还有史蒂夫·
科尔
2007~2008
凯尔特人
4
加内特、雷阿伦、皮尔斯组成的绿军三巨头,后卫线又有朗多,在总决赛上,以4:
2击败科比领衔的湖人队
2009~2010
3
科比搭档家嫂连续三年进入总决赛,与绿军大战七场,实现总决赛比分上的逆转,也成功的复仇了绿军
2012~2013
热火
热火与马刺纠缠了7场才分胜负,其中第六场雷阿伦终场前迎着帕克投入的关键三分镜头已为经典
2014~2015
勇士
骑士
这是一只跨时代的球队,打破依据离篮筐越近,命中率越高为基本原则的“铁律”,将炮轰上升到另一个层次,而且它还在进化,着实让人可怕
2015~2016
在库里腿伤未完全恢复和博古特意外报销的情况,骑士队抓住了机会,实现逆转,随着第七场,欧文一对一单挑库里投入致胜三分,仍是将总冠军抢到手
附录.NBA各球队缩写简称与正式名称对照表
球队简称
正式名称
CHI
芝加哥公牛
HOU
休斯顿火箭
SAS
圣安东尼奥马刺
GSW
金州勇士
LAL
洛杉矶湖人
BOS
波士顿凯尔特人
MIA
迈阿密热火
CLE
克里弗兰骑士
数据预处理
待处理数据
∙team_season.csv
∙team_playoff.csv
数据处理过程
∙数据时间太过散乱,不方便进行分类处理,故需要针对时间区间添加“赛季”列
∙选出上面十个总冠军队伍常规赛、季后赛,球队与对手的各项数据均值
∙计算冠军队伍的高阶数据:
进攻效率值和防守效率值,并实现数据可视化
#加载R语言包
library(dplyr)
library(stringr)
library(ggplot2)
champion_name<
-c("
CHI"
"
HOU"
LAL"
SAS"
BOS"
MIA"
GSW"
CLE"
)
Season_list<
91-92"
94-95"
95-96"
00-21"
02-03"
07-08"
09-10"
12-13"
14-15"
15-16"
champions<
-data.frame(champion_name,Season_list,stringsAsFactors=F)
#赛季数据简单处理
simple_db<
-function(team_season){
team_season$对手<
-str_sub(team_season$比分,start=1,end=3)
team_season$时间<
-as.Date(team_season$时间,"
%Y-%m-%d"
team_season$赛季[team_season$时间>
as.Date("
1985-9-11"
)&
1986-8-11"
)]<
-"
85-86"
1986-9-11"
1987-8-11"
86-87"
1987-9-11"
1988-8-11"
87-88"
1988-9-11"
1989-8-11"
88-89"
1989-9-11"
1990-8-11"
89-90"
1990-9-11"
1991-8-11"
90-91"
1991-9-11"
1992-8-11"
1992-9-11"
1993-8-11"
92-93"
1993-9-11"
1994-8-11"
93-94"
1994-9-11"
1995-8-11"
1995-9-11"
1996-8-11"
1996-9-11"
1997-8-11"
96-97"
1997-9-11"
1998-8-11"
97-98"
1998-9-11"
1999-8-11"
98-99"
1999-9-11"
2000-8-11"
99-00"
2000-9-11"
2001-8-11"
00-01"
2001-9-11"
2002-8-11"
01-02"
2002-9-11"
2003-8-11"
2003-9-11"
2004-8-11"
03-04"
2004-9-11"
2005-8-11"
04-05"
2005-9-11"
2006-8-11"
05-06"
2006-9-11"
2007-8-11"
06-07"
2007-9-11"
2008-8-11"
2008-9-11"
2009-8-11"
08-09"
2009-9-11"
2010-8-11"
2010-9-11"
2011-8-11"
10-11"
2011-9-11"
2012-8-11"
11-12"
2012-9-11"
2013-8-11"
2013-9-11"
2014-8-11"
13-14"
2014-9-11"
2015-8-11"
2015-9-11"
2016-8-11"
return(team_season)
}
#球队赛季数据处理
season_general<
-function(season_db,season,team){
team_season_db<
-filter(season_db,赛季==season,球队==team)
team_season_General<
-team_season_db%>
%
group_by(球队)%>
summarise(
场次=n(),
赛季=season,
胜场=length(which(结果=="
W"
)),
负场=length(which(结果=="
L"
投篮=mean(投篮,na.rm=TRUE),
命中=mean(命中,na.rm=TRUE),
出手=mean(出手,na.rm=TRUE),
三分=mean(三分,na.rm=TRUE),
三分命中=mean(三分命中,na.rm=TRUE),
三分出手=mean(三分出手,na.rm=TRUE),
罚球=mean(罚球,na.rm=TRUE),
罚球命中=mean(罚球命中,na.rm=TRUE),
罚球出手=mean(罚球出手,na.rm=TRUE),
篮板=mean(篮板,na.rm=TRUE),
前场=mean(前场,na.rm=TRUE),
后场=mean(后场,na.rm=TRUE),
助攻=mean(助攻,na.rm=TRUE),
抢断=mean(抢断,na.rm=TRUE),
盖帽=mean(盖帽,na.rm=TRUE),
失误=mean(失误,na.rm=TRUE),
犯规=mean(犯规,na.rm=TRUE),
得分=mean(得分,na.rm=TRUE)
)
return(team_season_General)
#对手赛季数据处理
Opp_season_general<
Opp_team_season_db<
-filter(season_db,赛季==season,对手==team)
Opp_team_season_General<
-Opp_team_season_db%>
group_by(对手)%>
Opp_场次=n(),
Opp_投篮=mean(投篮,na.rm=TRUE),
Opp_命中=mean(命中,na.rm=TRUE),
Opp_出手=mean(出手,na.rm=TRUE),
Opp_三分=mean(三分,na.rm=TRUE),
Opp_三分命中=mean(三分命中,na.rm=TRUE),
Opp_三分出手=mean(三分出手,na.rm=TRUE),
Opp_罚球=mean(罚球,na.rm=TRUE),
Opp_罚球命中=mean(罚球命中,na.rm=TRUE),
Opp_罚球出手=mean(罚球出手,na.rm=TRUE),
Opp_篮板=mean(篮板,na.rm=TRUE),
Opp_前场=mean(前场,na.rm=TRUE),
Opp_后场=mean(后场,na.rm=TRUE),
Opp_助攻=mean(助攻,na.rm=TRUE),
Opp_抢断=mean(抢断,na.rm=TRUE),
Opp_盖帽=mean(盖帽,na.rm=TRUE),
Opp_失误=mean(失误,na.rm=TRUE),
Opp_犯规=mean(犯规,na.rm=TRUE),
Opp_得分=mean(得分,na.rm=TRUE)
return(Opp_team_season_General)
champion_db<
-function(team_season){
#91-92赛季公牛队
CHI_91_92_General<
-season_general(team_season,"
Opp_CHI_91_92_General<
-Opp_season_general(team_season,"
CHI_91_92_Tot<
-cbind(CHI_91_92_General,Opp_CHI_91_92_General[,-1])
#94-95赛季火箭队
HOU_94_95_General<
Opp_HOU_94_95_General<
HOU_94_95_Tot<
-cbind(HOU_94_95_General,Opp_HOU_94_95_General[,-1])
#95-96赛季公牛队
CHI_95_96_General<
Opp_CHI_95_96_General<
CHI_95_96_Tot<
-cbind(CHI_95_96_General,Opp_CHI_95_96_General[,-1])
#00-01赛季湖人队
LAL_00_01_General<
Opp_LAL_00_01_General<
LAL_00_01_Tot<
-cbind(LAL_00_01_General,Opp_LAL_00_01_General[,-1])
#02-03赛季马刺队
SAS_02_03_General<
Opp_SAS_02_03_General<
SAS_02_03_Tot<
-cbind(SAS_02_03_General,Opp_SAS_02_03_General[,-1])
#07-08赛季凯尔特人队
BOS_07_08_General<
Opp_BOS_07_08_General<
BOS_07_08_Tot<
-cbind(BOS_07_08_General,Opp_BOS_07_08_General[,-1])
#09-10赛季湖人队
LAL_09_10_General<
Opp_LAL_09_10_General<
LAL_09_10_Tot<
-cbind(LAL_09_10_General,Opp_LAL_09_10_General[,-1])
#12-13赛季热火队
MIA_09_10_General<
Opp_MIA_09_10_General<
MIA_09_10_Tot<
-cbind(MIA_09_10_General,Opp_MIA_09_10_General[,-1])
#14-15赛季勇士队
GSW_14_15_General<
Opp_GSW_14_15_General<
GSW_14_15_Tot<
-cbind(GSW_14_15_General,Opp_GSW_14_15_General[,-1])
#15-16赛季骑士队
CLE_15_16_General<
Opp_CLE_15_16_General<
CLE_15_16_Tot<
-cbind(CLE_15_16_General,Opp_CLE_15_16_General[,-1])
champion_total<
-rbind(CHI_91_92_Tot,HOU_94_95_Tot,CHI_95_96_Tot,LAL_00_01_Tot,SAS_02_03_Tot,
BOS_07_08_Tot,LAL_09_10_Tot,MIA_09_10_Tot,GSW_14_15_Tot,CLE_15_16_Tot)
champion_total$胜负分<
-champion_total$得分-champion_total$Opp_得分
return(champion_total)
#高阶数据计算
#公式:
Pointsx(100/(FieldGoalsAttempted-OffRebounds+Turnovers+(FreeThrowsAttempted*0.44))
Advanced_db<
-function(team_sea
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 原创 语言 NBA 数据 分析 案例 代码
![提示](https://static.bdocx.com/images/bang_tan.gif)