if(interactive()){
# initialize connection to Lahman baseball database in Aster
conn = odbcDriverConnect(connection="driver={Aster ODBC Driver};
server=<dbhost>;port=2406;database=<dbname>;uid=<user>;pwd=<pw>")
# AL teams pitching stats by decade
bc = computeBarchart(channel=conn, tableName="pitching_enh", category="teamid",
aggregates=c("AVG(era) era", "AVG(whip) whip", "AVG(ktobb) ktobb"),
where="yearid >= 1990 and lgid='AL'", by="decadeid", withMelt=TRUE)
createHistogram(bc, "teamid", "value", fill="teamid",
facet=c("variable", "decadeid"),
legendPosition="bottom",
title = "AL Teams Pitching Stats by decades (1990-2012)",
themeExtra = guides(fill=guide_legend(nrow=2)))
# AL Teams Average Win-Loss Difference by Decade
franchwl = computeBarchart(conn, "teams_enh", "franchid",
aggregates=c("AVG(w) w", "AVG(l) l", "AVG(w-l) wl"),
by="decadeid",
where="yearid >=1960 and lgid = 'AL'")
createHistogram(franchwl, "decadeid", "wl", fill="franchid",
facet="franchid", ncol=5, facetScales="fixed",
legendPosition="none",
trend=TRUE,
title="Average W-L difference by decade per team (AL)",
ylab="Average W-L")
# Histogram of team ERA distribution: Rangers vs. Yankees in 2000s
h2000s = computeHistogram(channel=conn, tableName='pitching_enh', columnName='era',
binsize=0.2, startvalue=0, endvalue=10, by='teamid',
where="yearID between 2000 and 2012 and teamid in ('NYA','TEX')")
createHistogram(h2000s, fill='teamid', facet='teamid',
title='TEX vs. NYY 2000-2012', xlab='ERA', ylab='count',
legendPosition='none')
}
Run the code above in your browser using DataLab