籃球小皇帝——勒布朗·詹姆斯(LeBron James),　1984年12月30日出生在美國·俄亥俄州·阿克倫，美國男子職業(yè)籃球運動員，司職小前鋒，現(xiàn)效力于克利夫蘭騎士隊。
　　勒布朗·詹姆斯在2003年的NBA選秀大會中，首輪第一順位被克利夫蘭騎士隊選中。2003-2010年，詹姆斯在騎士隊效力7年，期間獲得兩屆NBA最有價值球員（MVP）。2010年轉(zhuǎn)會至邁阿密熱火隊，與德懷恩·韋德、克里斯·波什組成“三巨頭”陣容。
　　現(xiàn)在，用R語言來分析詹姆斯(LBJ)與哪個球隊相遇時，表現(xiàn)得最好。先用地圖來標(biāo)出，NBA 30支球隊的地理分布，如圖(1)所示。　　

圖(1) NBA 30支球隊的地理分布
　　球隊的簡稱：
　　 圖(2) 球隊的簡稱
　　球隊所在的城市和分區(qū)：
　　 圖(3) 球隊所在的城市和分區(qū)
　　 首先，我們要收集原始數(shù)據(jù)，其中包含3個變量: Opp、AvgPTS、state。
　　 Opp表示對手的球隊名稱；AvgPTS為詹姆斯對陣該隊時的平均得分；state表示球隊所在的州，各州的名稱必須與R中內(nèi)置的美國地圖信息保持一致，美國地圖的數(shù)據(jù)信息通過函數(shù)map_data()獲取。
　　 另外，由于NBA球隊并不是遍布每一個州，對于沒有球隊的州，我們將對應(yīng)的AvgPTS賦值為0，這樣繪制圖形時就會以灰色區(qū)域表示了。
　　數(shù)據(jù)源保存在lbj.txt中。
　　//lbj.txt　　

Opp AvgPTS state ATL 21.75 georgia BOS 29.25 massachusetts BRK 21.67 'new york' CHA 30 'north carolina' CHI 28 illinois CLE 27.67 ohio DAL 28 texas DEN 23.5 colorado DET 29 michigan GSW 28 california HOU 35 texas IND 21 indiana LAC 30 california LAL 35.5 california MEM 19 tennessee MIL 27.5 wisconsin MIN 21 minnesota NOH 30 louisiana NYK 27.67 'new york' OKC 34 oklahoma ORL 28.67 florida PHI 23.75 pennsylvania PHO 22 arizona POR 22.5 oregon SAC 30 california SAS 23 texas UTA 31 utah WAS 24.33 washington NA 0 alabama NA 0 arkansas NA 0 connecticut NA 0 delaware NA 0 'district of columbia' NA 0 idaho NA 0 iowa NA 0 kansas NA 0 kentucky NA 0 maine NA 0 maryland NA 0 mississippi NA 0 missouri NA 0 montana NA 0 nebraska NA 0 nevada NA 0 'new hampshire' NA 0 'new jersey' NA 0 'new mexico' NA 0 'north dakota' NA 0 'rhode island' NA 0 'south carolina' NA 0 'south dakota' NA 0 vermont NA 0 virginia NA 0 'west virginia' NA 0 wyoming

　　使用軟件R3.3.0+RStudio-0.99.893，進行分析，代碼如下：
　　//deifen.R　　

library(ggplot2) lbj <- read.table("G:/myProject/RDoc/Unit2/rChap6/lbj.txt",header = T,quote = "'") attach(lbj) ##查看數(shù)據(jù)前5行 head(lbj) ##獲取美國地圖信息 state_map <- map_data("state")p=ggplot(lbj,aes(map_id=state))+geom_map(aes(fill=AvgPTS),map=state_map)+expand_limits(x=state_map$long,y=state_map$lat)+scale_fill_continuous(limits=c(19,max(AvgPTS)),high='red3',low='yellow',guide="colorbar")+labs(title='詹姆斯客場平均得分')attach(state_map) state.uni=unique(region) #存放各州的名稱 xx=0;yy=0 #事先建立變量xx和yy，下面用循環(huán)找到每個州對應(yīng)的坐標(biāo)值 for(i in 1:length(state.uni)) {xx[i]=mean(long[region==state.uni[i]])yy[i]=mean(lat[region==state.uni[i]]) }order=0 #按變量state.uni的順序找到數(shù)據(jù)集lbj中各州的位置，存放于變量order for(i in 1:length(state.uni)){order[i]=which(state==state.uni[i]) } labels=Opp[order] #通過位置找到各州對應(yīng)的球隊名稱 p+annotate("text",x=xx,y=yy,label=labels) #最后繪圖并添加注釋

　　效果如下：　　

圖(4) 詹姆斯的客場得分
　　在圖(4)中，顏色從黃到紅，由淺到深，表示得分從小到大增長，顏色越紅表示得分越高，顏色越淡表示得分越低。詹姆斯在遇到OKC(俄克拉馬雷霆隊)時，顏色很紅，代表得分很高，說明詹姆斯對OKC的克制作用很大。

總結(jié)

以上是生活随笔為你收集整理的用R语言分析詹姆斯的客场得分的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。