如何用R語(yǔ)言ggplot2對(duì)科比的投籃數(shù)據(jù)進(jìn)行可視化展示

 

相信大部分球迷到現(xiàn)在也認(rèn)為這是一個(gè)假新聞吧，F(xiàn)ake News!

今天的推文用到的數(shù)據(jù)來(lái)自kaggle ，推文的大部分內(nèi)容是來(lái)自 https://www.kaggle.com/xvivancos/kobe-bryant-shot-selection/report

shots<-read.csv("Kobe/data.csv",header=T)

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ū)域

• Jump Shot 跳投
• Dunk 扣籃
• Layup 上籃
• Tip Shot 補(bǔ)籃
• Hook Shot 勾手
• Bank Shot 擦板

這里遇到一個(gè)疑問(wèn)：為啥擦板也算一種投籃類型呢？有沒(méi)有人知道呢？

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")

 

通過(guò)上圖我們可以看出科比幾乎所有的進(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)

 

• 面框
• 左右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)

 

從上圖我們可以看出科比更喜歡面框進(jìn)攻，其次是右側(cè)，但是左右差別好像不大。