atbat
```
atbat < - structure(list(pitcher = c(277417, 277417, 277417, 277417, 277417,
277417, 216897, 216897, 216897, 216897, 216897, 216897, 277184,
277184, 277184), batter = c(493479, 507000, 493470, 493472, 493468,
493488, 493470, 534738, 493468, 493479, 506988, 506989, 348562,
425903, 476704), num = c(1, 9, 2, 7, 3, 8, 33, 26, 34, 32, 24,
25, 31, 39, 34), b = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0), s = c(3, 3, 0, 0, 3, 3, 0, 0, 0, 0, 3, 0, 0, 0, 0), o = c(1,
3, 2, 1, 3, 2, 2, 3, 3, 1, 1, 2, 2, 2, 3), start_tfs = c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", ""), start_tfs_zulu = c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", ""), stand = c("R",
"L", "R", "R", "R", "L", "R", "R", "R", "R", "R", "L", "R", "R",
"L"), b_height = c("5-11", "5-11", "6-1", "6-3", "6-0", "6-3",
"6-1", "6-1", "6-0", "5-11", "6-2", "5-11", "5-10", "6-1", "6-0"
), p_throws = c("R", "R", "R", "R", "R", "R", "R", "R", "R",
"R", "R", "R", "R", "R", "R"), atbat_des = c("Ryan Akel called out on strikes.  ",
"Mike Sudol called out on strikes.  ", "Harry Darling grounds out, shortstop Julio Lugo to first baseman Kevin Youkilis.  ",
"Eric Campbell flies out to center fielder Jacoby Ellsbury.  ",
"Brandon Ziemann strikes out swinging.  ", "Mike Augustine strikes out swinging.  ",
"Harry Darling pops out to second baseman Tony Granadillo.  ",
"Matt Hamlet grounds out, first baseman Brandon Moss to pitcher Kyle Snyder.  ",
"Brandon Ziemann grounds out, shortstop Argenis Diaz to first baseman Brandon Moss.  ",
"Ryan Akel flies out to left fielder Jeff Bailey.  ", "Michael Belfiore called out on strikes.  ",
"Barry Butera flies out to center fielder Jacoby Ellsbury.  ",
"Keith Ginter flies out to right fielder Ryan Church.  ", "Kevin Youkilis grounds out, shortstop Jose Reyes to first baseman Carlos Delgado.  ",
"Jed Lowrie flies out to right fielder Ryan Church.  "), atbat_des_es = c(NA_character_,
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_,
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_,
NA_character_, NA_character_, NA_character_, NA_character_),
    event = c("Strikeout", "Strikeout", "Groundout", "Flyout",
    "Strikeout", "Strikeout", "Pop Out", "Groundout", "Groundout",
    "Flyout", "Strikeout", "Flyout", "Flyout", "Groundout", "Flyout"
    ), score = c(NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_
    ), home_team_runs = c(NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_
    ), away_team_runs = c(NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_
    ), url = c("http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_02/day_28/gid_2008_02_28_bocbbc_bosmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_03/day_10/gid_2008_03_10_bosmlb_nynmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_03/day_10/gid_2008_03_10_bosmlb_nynmlb_1/inning/inning_all.xml",
    "http://gd2.mlb.com/components/game/mlb/year_2008/month_03/day_10/gid_2008_03_10_bosmlb_nynmlb_1/inning/inning_all.xml"
    ), inning_side = c("top", "top", "top", "top", "top", "top",
    "top", "top", "top", "top", "top", "top", "top", "top", "top"
    ), inning = c(1, 2, 1, 2, 1, 2, 4, 3, 4, 4, 3, 3, 5, 6, 5
    ), next_ = c("Y", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "Y",
    "Y", "Y", "Y", "Y", "Y", "Y"), event2 = c(NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_), event3 = c(NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_), batter_name = c("Ryan Akel",
    "Mike Sudol", "Harry Darling", "Eric Campbell", "Brandon Ziemann",
    "Mike Augustine", "Harry Darling", "Matt Hamlet", "Brandon Ziemann",
    "Ryan Akel", "Michael Belfiore", "Barry Butera", "Keith Ginter",
    "Kevin Youkilis", "Jed Lowrie"), pitcher_name = c("Josh Beckett",
    "Josh Beckett", "Josh Beckett", "Josh Beckett", "Josh Beckett",
    "Josh Beckett", "Kyle Snyder", "Kyle Snyder", "Kyle Snyder",
    "Kyle Snyder", "Kyle Snyder", "Kyle Snyder", "Matt Wise",
    "Matt Wise", "Matt Wise"), event4 = c(NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_), gameday_link = c("gid_2008_02_28_bocbbc_bosmlb_1",
    "gid_2008_02_28_bocbbc_bosmlb_1", "gid_2008_02_28_bocbbc_bosmlb_1",
    "gid_2008_02_28_bocbbc_bosmlb_1", "gid_2008_02_28_bocbbc_bosmlb_1",
    "gid_2008_02_28_bocbbc_bosmlb_1", "gid_2008_02_28_bocbbc_bosmlb_1",
    "gid_2008_02_28_bocbbc_bosmlb_1", "gid_2008_02_28_bocbbc_bosmlb_1",
    "gid_2008_02_28_bocbbc_bosmlb_1", "gid_2008_02_28_bocbbc_bosmlb_1",
    "gid_2008_02_28_bocbbc_bosmlb_1", "gid_2008_03_10_bosmlb_nynmlb_1",
    "gid_2008_03_10_bosmlb_nynmlb_1", "gid_2008_03_10_bosmlb_nynmlb_1"
    ), date = structure(c(13937, 13937, 13937, 13937, 13937,
    13937, 13937, 13937, 13937, 13937, 13937, 13937, 13948, 13948,
    13948), class = "Date"), event_num = c(NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_), event_es = c(NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_), event2_es = c(NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_), end_tfs_zulu = c(NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_), event3_es = c(NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_), event4_es = c(NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_), play_guid = c(NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_, NA_character_, NA_character_, NA_character_,
    NA_character_), unique_id = c(384613L, 384614L, 384615L,
    384616L, 384617L, 384618L, 384619L, 384620L, 384621L, 10L,
    7L, 384622L, 384623L, 384624L, 384625L)), row.names = c(NA,
15L), class = "data.frame")
```