I have found the data for this project at basketball reference.com I then downloaded the dataset and saved it as a .CSV file and uploaded it into my Github repository (Basketball). With this data I hope to track players positions and make an attempt to identify players into specific positions. .
summary(data)## Rk Player Pos Age
## Min. : 1.0 Length:651 Length:651 Min. :19.00
## 1st Qu.:123.5 Class :character Class :character 1st Qu.:23.00
## Median :256.0 Mode :character Mode :character Median :25.00
## Mean :260.8 Mean :25.76
## 3rd Qu.:395.5 3rd Qu.:28.00
## Max. :529.0 Max. :43.00
##
## Tm G GS MP
## Length:651 Min. : 1.00 Min. : 0.00 Min. : 1.0
## Class :character 1st Qu.:15.50 1st Qu.: 0.00 1st Qu.: 221.0
## Mode :character Median :41.00 Median : 4.00 Median : 734.0
## Mean :38.22 Mean :17.54 Mean : 864.2
## 3rd Qu.:59.00 3rd Qu.:29.50 3rd Qu.:1435.5
## Max. :74.00 Max. :73.00 Max. :2556.0
##
## FG FGA FG. X3P
## Min. : 0.000 Min. : 0.00 Min. :0.0000 Min. :0.000
## 1st Qu.: 5.400 1st Qu.:12.60 1st Qu.:0.3990 1st Qu.:1.000
## Median : 6.800 Median :15.80 Median :0.4390 Median :2.100
## Mean : 7.108 Mean :16.15 Mean :0.4429 Mean :2.093
## 3rd Qu.: 8.600 3rd Qu.:19.20 3rd Qu.:0.4860 3rd Qu.:3.100
## Max. :16.300 Max. :47.80 Max. :1.0000 Max. :9.300
## NA's :2
## X3PA X3P. X2P X2PA
## Min. : 0.000 Min. :0.0000 Min. : 0.000 Min. : 0.000
## 1st Qu.: 4.000 1st Qu.:0.2707 1st Qu.: 3.200 1st Qu.: 6.900
## Median : 6.400 Median :0.3390 Median : 4.800 Median : 9.300
## Mean : 6.373 Mean :0.3134 Mean : 5.014 Mean : 9.776
## 3rd Qu.: 8.800 3rd Qu.:0.3782 3rd Qu.: 6.500 3rd Qu.:12.250
## Max. :19.800 Max. :1.0000 Max. :16.100 Max. :47.800
## NA's :35
## X2P. FT FTA FT.
## Min. :0.0000 Min. : 0.000 Min. : 0.000 Min. :0.0000
## 1st Qu.:0.4590 1st Qu.: 1.600 1st Qu.: 2.300 1st Qu.:0.6670
## Median :0.5090 Median : 2.700 Median : 3.600 Median :0.7705
## Mean :0.5074 Mean : 3.012 Mean : 4.013 Mean :0.7438
## 3rd Qu.:0.5690 3rd Qu.: 4.000 3rd Qu.: 5.300 3rd Qu.:0.8360
## Max. :1.0000 Max. :24.300 Max. :24.300 Max. :1.0000
## NA's :6 NA's :33
## ORB DRB TRB AST
## Min. : 0.00 Min. : 0.000 Min. : 0.000 Min. : 0.000
## 1st Qu.: 0.90 1st Qu.: 4.800 1st Qu.: 5.800 1st Qu.: 2.400
## Median : 1.50 Median : 6.300 Median : 8.000 Median : 3.400
## Mean : 2.19 Mean : 6.814 Mean : 9.004 Mean : 4.205
## 3rd Qu.: 3.00 3rd Qu.: 8.400 3rd Qu.:11.150 3rd Qu.: 5.500
## Max. :35.80 Max. :32.400 Max. :47.800 Max. :23.700
##
## STL BLK TOV PF
## Min. : 0.000 Min. :0.000 Min. : 0.000 Min. : 0.000
## 1st Qu.: 1.000 1st Qu.:0.400 1st Qu.: 1.800 1st Qu.: 3.500
## Median : 1.400 Median :0.700 Median : 2.500 Median : 4.300
## Mean : 1.542 Mean :1.003 Mean : 2.663 Mean : 4.628
## 3rd Qu.: 1.950 3rd Qu.:1.300 3rd Qu.: 3.300 3rd Qu.: 5.500
## Max. :16.200 Max. :6.500 Max. :12.700 Max. :16.900
##
## PTS X ORtg DRtg
## Min. : 0.00 Mode:logical Min. : 0.0 Min. : 69
## 1st Qu.:14.80 NA's:651 1st Qu.:100.0 1st Qu.:108
## Median :18.60 Median :109.0 Median :111
## Mean :19.32 Mean :106.5 Mean :111
## 3rd Qu.:23.55 3rd Qu.:116.0 3rd Qu.:114
## Max. :44.20 Max. :173.0 Max. :123
## NA's :2Removing Unnecessary Collumns
data$FG. <- NULL
data$X2P. <- NULL
data$X3P. <- NULL
data$X2P. <- NULL
data$FT. <- NULL
data$X <- NULL
#dataNBApca<-prcomp(data[c(9,10,13)], center=TRUE, scale.=TRUE)
NBApca## Standard deviations (1, .., p=3):
## [1] 1.5734626 0.6686394 0.2777348
##
## Rotation (n x k) = (3 x 3):
## PC1 PC2 PC3
## FG -0.6199885 0.04813609 0.7831329
## FGA -0.5477323 -0.74121026 -0.3880679
## X2P -0.5617861 0.66954482 -0.4859075``