- 比较三位在NBA历史中,不同世代的最佳球员,这三位球员分别是:Michael Jordan,Kobe Bryant,LeBron James。
- 分别计算三位球员的NBA生涯绩效。(注意:是整个球员生涯,勒布朗·詹姆斯是计算到2018-2019球季)
- 计算完球员绩效值后,请利用不重叠的长条图,显示出三位球员的绩效值。
KB <- read.csv ( "KB.csv" , header=T , sep="," )
head ( data ) #KB的檔案
LJ <- read.csv ( "LJ.csv" , header=T , sep="," )
head ( data ) #LJ的檔案
MJ <- read.csv ( "MJ.csv" , header=T , sep="," )
head ( data ) #MJ的檔案
KB的績效值Efficiency=(KB$PTS+KB$TRB+KB$AST+KB$STL+KB$BLK)-((KB$FGA-KB$FG)+(KB$FTA-KB$FT)+KB$TOV)/KB$G
LJ的績效值Efficiency=(LJ$PTS+LJ$TRB+LJ$AST+LJ$STL+LJ$BLK)-((LJ$FGA-LJ$FG)+(LJ$FTA-LJ$FT)+LJ$TOV)/LJ$G
MJ的績效值Efficiency=(MJ$PTS+MJ$TRB+MJ$AST+MJ$STL+MJ$BLK)-((MJ$FGA-MJ$FG)+(MJ$FTA-MJ$FT)+MJ$TOV)/MJ$G
三位球員的NBA生涯績效 <- c(KB的績效值Efficiency, LJ的績效值Efficiency, MJ的績效值Efficiency)
barplot (三位球員的NBA生涯績效, col = c("1","2","4" ) , beside = TRUE
rownames(career) <- c("Kobe Bryant", "LeBron James","JordaMichaeln")
barplot
求助各位神大大,为什么结果会过多的长条?程序哪里需要更改?