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<-function（season_db,season,team）{
Opp_team_season_db<-filter（season_db,赛季==season,对手==team）
Opp_team_season_General<-Opp_team_season_db%>%
group_by（对手）%>%
summarise（
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,"91-92","CHI"）
Opp_CHI_91_92_General<-Opp_season_general（team_season,"91-92","CHI"）
CHI_91_92_Tot<-cbind（CHI_91_92_General,Opp_CHI_91_92_General[,-1]）
#94-95赛季火箭队
HOU_94_95_General<-season_general（team_season,"94-95","HOU"）
Opp_HOU_94_95_General<-Opp_season_general（team_season,"94-95","HOU"）
HOU_94_95_Tot<-cbind（HOU_94_95_General,Opp_HOU_94_95_General[,-1]）
#95-96赛季公牛队
CHI_95_96_General<-season_general（team_season,"95-96","CHI"）
Opp_CHI_95_96_General<-Opp_season_general（team_season,"95-96","CHI"）
CHI_95_96_Tot<-cbind（CHI_95_96_General,Opp_CHI_95_96_General[,-1]）
#00-01赛季湖人队
LAL_00_01_General<-season_general（team_season,"00-01","LAL"）
Opp_LAL_00_01_General<-Opp_season_general（team_season,"00-01","LAL"）
LAL_00_01_Tot<-cbind（LAL_00_01_General,Opp_LAL_00_01_General[,-1]）
#02-03赛季马刺队
SAS_02_03_General<-season_general（team_season,"02-03","SAS"）
Opp_SAS_02_03_General<-Opp_season_general（team_season,"02-03","SAS"）
SAS_02_03_Tot<-cbind（SAS_02_03_General,Opp_SAS_02_03_General[,-1]）
#07-08赛季凯尔特人队
BOS_07_08_General<-season_general（team_season,"07-08","BOS"）
Opp_BOS_07_08_General<-Opp_season_general（team_season,"07-08","BOS"）
BOS_07_08_Tot<-cbind（BOS_07_08_General,Opp_BOS_07_08_General[,-1]）
#09-10赛季湖人队
LAL_09_10_General<-season_general（team_season,"09-10","LAL"）
Opp_LAL_09_10_General<-Opp_season_general（team_season,"09-10","LAL"）
LAL_09_10_Tot<-cbind（LAL_09_10_General,Opp_LAL_09_10_General[,-1]）
#12-13赛季热火队
MIA_09_10_General<-season_general（team_season,"12-13","MIA"）
Opp_MIA_09_10_General<-Opp_season_general（team_season,"12-13","MIA"）
MIA_09_10_Tot<-cbind（MIA_09_10_General,Opp_MIA_09_10_General[,-1]）
#14-15赛季勇士队
GSW_14_15_General<-season_general（team_season,"14-15","GSW"）
Opp_GSW_14_15_General<-Opp_season_general（team_season,"14-15","GSW"）
GSW_14_15_Tot<-cbind（GSW_14_15_General,Opp_GSW_14_15_General[,-1]）
#15-16赛季骑士队
CLE_15_16_General<-season_general（team_season,"15-16","CLE"）
Opp_CLE_15_16_General<-Opp_season_general（team_season,"15-16","CLE"）
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
升级会员 