In beanumber/openWARData: Data Associated with openWAR

Cross-check our WAR with bbref

library(openWAR)
library(openWARData)
library(mosaic)

data(rWAR)
rWAR2012 <- filter(rWAR, yearId == 2012)

data(idTT)
WAR <- merge(x=rWAR2012, y=idTT, by.x="playerId", by.y="key_bbref")
data(openWAR2012)
WAR <- merge(x=WAR, y=openWAR2012, by.x="key_mlbam", by.y="playerId")

panel.compare = function (x, y,...) {
  panel.xyplot(x,y, pch=19, alpha=0.3, ...)
  panel.abline(0,1, col="darkgray")
  panel.text(0, 0, paste("Correlation =", round(cor(x,y, use="complete.obs"), 3)))
}

xyplot(WAR ~ rWAR, data=WAR, type=c("p", "r", "smooth")
       , panel=panel.compare
       , main="Comparison of openWAR vs. rWAR, 2012"
       , ylab = "Wins Above Replacement (openWAR)"
       , xlab="Wins Above Replacement (rWAR)"
       )

cor(WAR ~ rWAR, data=WAR)

favstats(~WAR, data=WAR)
favstats(~rWAR, data=WAR)
densityplot(~WAR + rWAR, data=WAR)

sum(~RAA, data=WAR)
sum(~rRAA, data=WAR)
sum(~WAR, data=WAR)
sum(~rWAR, data=WAR)

beanumber/openWARData documentation built on May 12, 2019, 9:47 a.m.