主要內容是探索了NBA 14/15賽季常規賽MVP排行榜前四名 庫里 哈登 詹姆斯 威少的投籃數據。今天重復第一個內容：用R語言的ggplot2畫山脊圖展示以上四人的投籃出手距離的分布。

原始數據集下載自kaggle

https://www.kaggle.com/dansbecker/nba-shot-logs

對原始數據集進行清洗的代碼 https://github.com/nycdatasci/bootcamp007_project/tree/master/Project1-ExploreVis/Xinyuan_Wu

這部分代碼我們就不關注了，直接運行得到作圖的數據 數據清洗的代碼我已經運行好了，需要本文的示例數據可以直接留言

df<-read.csv("NBA_MVP-1.tsv",header=T,sep="\t")

這邊遇到一個問題是：如果用read.table()函數讀入數據read.table("NBA_MVP-1.tsv",header=T,sep="\t")就會報錯Error in scan(file = file, what = what, sep = sep, quote = quote, dec = dec, : line 145 did not have 21 elements這個是什么原因呢？暫時還沒有搞懂

library(ggplot2)
library(ggthemes)
ggplot(data=df,aes(x=dist_cut))+
  geom_density(aes(fill=player_name))+
  facet_grid(player_name~.)+
  theme_gdocs()+
  theme(axis.text.y = element_blank())+
  labs(x="Shot Distance",y="Shot Density")+
  ggtitle("Shot Distance")+
  scale_fill_manual("Players", 
                    values = c("#FFCC33", "#FF3300", "#990000", "#0066FF"))

最終結果

 

library(ggplot2)
library(ggthemes)

加載用到的包

• ggplot2用來作圖
• ggthemes用來補充一些ggplot2的主題

最基本的密度圖

ggplot(data=df,aes(x=dist_cut))+
  geom_density(aes(fill=player_name))

根據運動員的名字分面

ggplot(data=df,aes(x=dist_cut))+
  geom_density(aes(fill=player_name))+
  facet_grid(player_name~.)

設置一個作圖的主題

ggplot(data=df,aes(x=dist_cut))+
  geom_density(aes(fill=player_name))+
  facet_grid(player_name~.)+
  theme_gdocs()

去掉y軸的刻度標簽

ggplot(data=df,aes(x=dist_cut))+
  geom_density(aes(fill=player_name))+
  facet_grid(player_name~.)+
  theme_gdocs()+
  theme(axis.text.y = element_blank())

更改坐標軸的標題

ggplot(data=df,aes(x=dist_cut))+
  geom_density(aes(fill=player_name))+
  facet_grid(player_name~.)+
  theme_gdocs()+
  theme(axis.text.y = element_blank())+
  labs(x="Shot Distance",y="Shot Density")

給整幅圖添加一個標題

ggplot(data=df,aes(x=dist_cut))+
  geom_density(aes(fill=player_name))+
  facet_grid(player_name~.)+
  theme_gdocs()+
  theme(axis.text.y = element_blank())+
  labs(x="Shot Distance",y="Shot Density")+
  ggtitle("Shot Distance")

自定義填充的顏色并且更改圖例的標題

ggplot(data=df,aes(x=dist_cut))+
  geom_density(aes(fill=player_name))+
  facet_grid(player_name~.)+
  theme_gdocs()+
  theme(axis.text.y = element_blank())+
  labs(x="Shot Distance",y="Shot Density")+
  ggtitle("Shot Distance")+
  scale_fill_manual("Players", 
                    values = c("#FFCC33", "#FF3300", "#990000", "#0066FF"))