OIP.jpg
相信大部分球迷到現(xiàn)在也認(rèn)為這是一個(gè)假新聞吧，F(xiàn)ake News!
今天的推文用到的數(shù)據(jù)來自kaggle ，推文的大部分內(nèi)容是來自
https://www.kaggle.com/xvivancos/kobe-bryant-shot-selection/report
第一步讀入數(shù)據(jù)
shots<-read.csv("Kobe/data.csv",header=T)
查看數(shù)據(jù)維度
dim(shots)
數(shù)據(jù)集總共有25個(gè)變量，今天的推文重點(diǎn)關(guān)注的是
- combined_shot_type 出手類型
- shot_zone_range 出手距離
- shot_zone_area 出手區(qū)域
- shot_zone_basic 這個(gè)也是出手區(qū)域
出手類型總共有6種
- Jump Shot 跳投
- Dunk 扣籃
- Layup 上籃
- Tip Shot 補(bǔ)籃
- Hook Shot 勾手
- Bank Shot 擦板
這里遇到一個(gè)疑問：為啥擦板也算一種投籃類型呢？有沒有人知道呢？
通過柱形圖來看一下不同的出手方式大小排序
df1<-data.frame(table(shots$combined_shot_type))
df1
library(ggplot2)
ggplot(df1,aes(x=reorder(Var1,Freq),y=Freq))+
geom_col(aes(fill=Var1))+
geom_label(aes(label=Freq))+
coord_flip()+
theme_bw()+
theme(axis.title = element_blank(),
axis.ticks.x=element_blank(),
axis.text.x = element_blank(),
legend.position = "none")
image.png
通過上圖我們可以看出科比幾乎所有的進(jìn)攻都會(huì)選擇跳投
接下來看一下出手距離
出手距離劃分為
- Less Than 8 ft
- 8-16 ft
- 16-24 ft
- 24+ ft
- Back Court Shot
這里一個(gè)小知識(shí)點(diǎn)是
feet 英尺；1英尺等于0.3048米
NBA三分線7.25米；23.9英尺
library(tidyverse)
library(cowplot)
p1<-ggplot(shots,aes(x=lon,y=lat))+
geom_point(aes(color=shot_zone_range),
show.legend = F)+
ylim(c(33.7,34.0883))+
theme_void()
p2<-ggplot(shots,aes(x=fct_infreq(shot_zone_range)))+
geom_bar(aes(fill=shot_zone_range),show.legend = F)+
theme_bw()+
labs(x=NULL,y=NULL)
plot_grid(p1,p2,ncol = 1,nrow = 2)
image.png
接下來是出手區(qū)域，出手區(qū)域劃分為
- 面框
- 左右45度
- 左右底角
p3<-ggplot(shots,aes(x=lon,y=lat))+
geom_point(aes(color=shot_zone_area),show.legend = F)+
theme_void()+
ylim(c(33.7,34.0883))
p3
p4<-ggplot(shots,aes(x=fct_infreq(shot_zone_area)))+
geom_bar(aes(fill=shot_zone_area),show.legend = F)+
theme_bw()+
labs(x=NULL,y=NULL)+
theme(axis.text.x = element_text(angle=60,hjust=1))
p4
plot_grid(p3,p4,ncol = 1,nrow = 2)
image.png
從上圖我們可以看出科比更喜歡面框進(jìn)攻，其次是右側(cè)，但是左右差別好像不大。
好了今天的內(nèi)容就到這里了，推文中的數(shù)據(jù)大家可以自己到文章開頭提到的鏈接去下載，或者直接在文末留言就好了
歡迎大家關(guān)注我的公眾號(hào)
小明的數(shù)據(jù)分析筆記本
