cwevent: Extract detailed information about individual events.

Description Usage Arguments References Examples

View source: R/cwevent.R

Description

Extract detailed information about individual events.

Usage

1
cwevent(year)

Arguments

year

The year to obtain event information

References

http://chadwick.sourceforge.net/doc/cwevent.html

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
# acquire event data from 1960
df <- cwevent(1960)

# tack on batter's name
data(players, package = "chadwick")
library(dplyr)
p <- players %>%
  rename(BAT_ID = Player.ID, BAT_TEAM_ID = Team) %>%
  mutate(Batter.Name = paste(First.Name, Last.Name)) %>%
  select(Year, BAT_TEAM_ID, BAT_ID, Batter.Name)
df2 <- left_join(df, p)

# who had the most strikeouts in 1960?
df2 %>%
  filter(EVENT_DES == "Strikeout") %>%
  count(Batter.Name) %>%
  arrange(desc(n))

cpsievert/chadwick documentation built on May 13, 2019, 10:54 p.m.