績效值長條圖問題

[nlpss96084]

(1)比較三位在 NBA 歷史中，不同世代的最佳球員，這三位球 員分別是: Michael Jordan、Kobe Bryant、LeBron James。 (2)分別計算三位球員的 NBA 生涯績效。(注意: 是整個球員生涯，LeBron James 是計算到 2018-2019 球季)

(3)計算完球員績效值後，請利用不重疊的長條圖，顯示出三位球員的績效值。

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

結果會出現過多長條，請問怎麼更改？