View difference between Paste ID: fsDng9Uz and Xhjiibpk

 # Get the required package
 require('plyr')
 
 # http://www.baseball-reference.com/data/war_daily_bat.txt
 war_bat = read.csv('war_daily_bat.txt',header=TRUE)
 # http://www.baseball-reference.com/data/war_daily_pitch.txt
 war_pit = read.csv('war_daily_pitch.txt',header=TRUE)
 
 # Break out just the columns we want
 columns = c("name_common", "player_ID", "year_ID", "WAR")
 war = rbind(war_bat[,columns], war_pit[,columns])
 
 # Need to turn these columns into the appropriate data types
 war$WAR <- as.numeric(as.character(war$WAR))
 war$name_common <- as.character(war$name_common)
 war$player_ID <- as.character(war$player_ID)
 
 # Only get pre-2014 data
 mask1 <- war$year_ID < 2014
 war <- war[mask1,]
 
 # To figure out which names to use
 maxWar <- ddply(war,c("year_ID"), function(df)max(df$WAR,na.rm=TRUE))
 colnames(maxWar) <- c('year_ID','WAR')
 str(maxWar)
 m <- join(war,maxWar,type="inner")
 arrange(m,year_ID)
 
-masktw1 = (war$year_ID <= 1942 & war$name_common == 'Ted Williams')
+
-war$name_common[masktw1] <- 'TW1'
+masktw1 = (war$year_ID <= 1942 & war$player_ID == 'willite01')
 war$player_ID[masktw1] <- 'TW1'
-masktw2 = (war$year_ID < 1952 & war$name_common == 'Ted Williams')
+
-war$name_common[masktw2] <- 'TW2'
+masktw2 = (war$year_ID < 1952 & war$player_ID == 'willite01')
 war$player_ID[masktw2] <- 'TW2'
-masktw3 = (war$year_ID > 1953 & war$name_common == 'Ted Williams')
+
-war$name_common[masktw3] <- 'TW3'
+masktw3 = (war$year_ID > 1953 & war$player_ID == 'willite01')
 war$player_ID[masktw3] <- 'TW3'
 
-masklg = (war$year_ID == 1934 & war$name_common == 'Lefty Grove')
+
 masklg = (war$year_ID == 1934 & war$player_ID == 'grovele01')
 war$WAR[masklg] = 7
 
-masktw4 = (war$year_ID == 1950 & war$name_common == 'TW2')
+
 masktw4 = (war$year_ID == 1950 & war$player_ID == 'TW2')
 war$WAR[masktw4] = 7
 
 
-names <- c('Cy Young','Honus Wagner','Ty Cobb','Walter Johnson','Babe Ruth','Lefty Grove',
+
-           'Lou Gehrig','TW1','TW2','TW3','Stan Musial',
+names <- c('youngcy01','wagneho01','cobbty01','johnswa01','ruthba01','grovele01',
-           'Mickey Mantle','Willie Mays','Sandy Koufax','Bob Gibson',
+           'gehrilo01','TW1','TW2','TW3','musiast01',
-           'Mike Schmidt','Joe Morgan','Cal Ripken',
+           'mantlmi01','mayswi01','koufasa01','gibsobo01',
-           'Barry Bonds','Alex Rodriguez','Albert Pujols','Clayton Kershaw')
+           'schmimi01','morgajo02','clemero02',
            'bondsba01','rodrial01','pujolal01','kershcl01')
 colors = c('red','gray','gray','red','red','red',
            'gray','red','red','red','gray',
            'gray','red','gray','red',
            'red','gray','gray',
            'red','gray','red','gray')
 
 # Make the initial plot
 min_x = 1900; max_x = 2013
 xl <- seq(min_x, max_x, 0.1)
 yl = xl * 0
 plot(0,type='n',axes=TRUE,ann=FALSE,xlim=range(1900,2013),ylim=range(0,15))
 axis(side=1,at=seq(1900,2010,10),labels=seq(1900,2010,10))
 
 for (i in seq(1,length(names)))
 {
   name = names[i]
-  mask <- which(war$name_common == name)
+
   mask <- which(war$player_ID == name)
   # We need to add batter and pitcher WAR
   masked_war <- war[mask,]
   myWar <- ddply(masked_war, .(year_ID), summarise, WAR=sum(WAR))
   x <- myWar$year_ID
   y <- myWar$WAR
   lo <- loess(y~x,span=0.7)
   xl <- seq(min(x),max(x), 0.1)
   p <- lines(xl, predict(lo,xl), col=color, lwd=2)
-  #plot(x,y,type="l",xlim=range(1900,2013),ylim=range(0,15))
+
 }
 
 # Add dashed lines for Ted Williams's war periods
 x = c(1942,1946)
 y = c(10.61,10.87)
 lines(x,y,pch=3,lty='dotted',col='red',lwd=2)
 
 x = c(1951,1954)
 y = c(7.22,7.75)
 lines(x,y,pch=3,lty='dotted',col='red',lwd=2)