library (DBI)
library (RMySQL)
drv <-dbDriver("MySQL")
con <-dbConnect(drv, username="username", password="password", dname="pbp", host="localhost")
res <-dbSendQuery (con, "SELECT * FROM pitches LEFT JOIN ( atbats LEFT JOIN players ON atbats . pitcher = players . eliasid ) ON pitches . ab_id = atbats . ab_id WHERE players . last = 'Webb' AND players . first = 'Brandon' ");
webbbr01_27aug07 <- fetch(res,n=-1);
summary(webbbr01_27aug07);
library (lattice)
attach(webbbr01_27aug07);
pfx <- subset(webbbr01_27aug07, y0 > 0)
game200 <- subset (pfx, game_id == 200)
game368 <- subset (pfx, game_id == 368)
game1374 <- subset (pfx, game_id == 1374)
game1435 <- subset (pfx, game_id == 1435)
game1512 <- subset (pfx, game_id == 1512)
game1589 <- subset (pfx, game_id == 1589)
game1661 <- subset (pfx, game_id == 1661)
game1754 <- subset (pfx, game_id == 1754)
game1822 <- subset (pfx, game_id == 1822)
game1900 <- subset(pfx, game_id == 1900)
plot (game1822$start_speed, type="l")
plot(game1822$pfx_x, game1822$start_speed, type="p", pch=19, col="blue")