data <- scan(what = list(fname="",lname="",ab=0,h=0,tb=0), multi.line=F)
Ichiro Suzuki   560     174     215
Raul Ibanez     520     156     264
Jose Lopez      530     158     229	
Kenji Johjima   314     67       99

data 

baseball <- data.frame(data)
rm(data)

baseball$ba <- baseball$h/baseball$ab
baseball$sa <- baseball$tb/baseball$ab

baseball

summary(baseball)

plot(baseball$ab,baseball$h,xlab="At Bats",ylab="Hits")
title("Hits plotted against At Bats for 2008 Mariners")