# Possible World Series? h1 <- read.csv("C:/YONG/m1710/0_video튜토리얼_/LAD/LAD20180928.csv") plot(h1$PA, h1$TB/h1$PA, pch=19, cex=1.25, col=rgb(ifelse(h1$Team=="LAD",0,0.5),0,ifelse(h1$Team=="LAD",0.7,0),0.5), xlab="PA", ylab="TB/PA", main="Why LAD goes that bad in 2018" ) text(h1$PA, h1$TB/h1$PA, pch=19, labels=ifelse(h1$Team=="LAD", as.character(h1$Player),""), pos=3..