From 4fef0a1ebc4395c84f7f4e820b368ea33b177938 Mon Sep 17 00:00:00 2001 From: Isaac Petersen Date: Mon, 27 Jul 2015 21:38:49 -0400 Subject: [PATCH] 20150727 - updated file paths --- .../R Scripts/balanceAnalysis.R | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/R Scripts/Posts/Value Gap analysis/R Scripts/balanceAnalysis.R b/R Scripts/Posts/Value Gap analysis/R Scripts/balanceAnalysis.R index aac4c41..7e249a9 100644 --- a/R Scripts/Posts/Value Gap analysis/R Scripts/balanceAnalysis.R +++ b/R Scripts/Posts/Value Gap analysis/R Scripts/balanceAnalysis.R @@ -7,13 +7,13 @@ library(data.table) library(ggplot2) ## Read the data -qbProjections <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/qbprojections.csv", stringsAsFactors = FALSE)) -rbProjections <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/rbprojections.csv", stringsAsFactors = FALSE)) -wrProjections <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/wrprojections.csv", stringsAsFactors = FALSE)) -teProjections <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/teprojections.csv", stringsAsFactors = FALSE)) +qbProjections <- data.table(read.csv("./R Scripts/Posts/Value Gap analysis/Data/qbprojections.csv", stringsAsFactors = FALSE)) +rbProjections <- data.table(read.csv("./R Scripts/Posts/Value Gap analysis/Data/rbprojections.csv", stringsAsFactors = FALSE)) +wrProjections <- data.table(read.csv("./R Scripts/Posts/Value Gap analysis/Data/wrprojections.csv", stringsAsFactors = FALSE)) +teProjections <- data.table(read.csv("./R Scripts/Posts/Value Gap analysis/Data/teprojections.csv", stringsAsFactors = FALSE)) -playerTeams <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/playerteams.csv", stringsAsFactors = FALSE)) -players <- data.table(read.csv("R Scripts/Posts/Value Gap analysis/Data/Posts/players.csv", stringsAsFactors = FALSE)) +playerTeams <- data.table(read.csv("./R Scripts/Posts/Value Gap analysis/Data/playerteams.csv", stringsAsFactors = FALSE)) +players <- data.table(read.csv("./R Scripts/Posts/Value Gap analysis/Data/players.csv", stringsAsFactors = FALSE)) ## Merge team information qbProjections <- merge(qbProjections, playerTeams[, c("playerId", "team"), with = FALSE], by = "playerId") @@ -75,7 +75,7 @@ tblData <- tblData[team != "FA" ] tblData <- tblData[,team := reorder(team, passYdsDiff, function(x)-x)] ggplot(tblData, aes(x =team , y=passYdsDiff, fill = passYdsDiff > 0), position = 'dodge' ) + geom_bar(stat = "identity") + xlab("Team") + ylab("PassYds - RecYds") +scale_fill_discrete(guide = 'none') + ggtitle("Pass and Receiving Yard difference") -ggsave("R Scripts/Posts/Value Gap analysis/Figures/passYdsDiffernce.png", width = 900/72, height = 545/72, units = "in") +ggsave("./R Scripts/Posts/Value Gap analysis/Figures/passYdsDiffernce.png", width = 900/72, height = 545/72, units = "in") ## Generate bar plot for receiving td difference tdData <- data.table(aggregate(teamData$passTdDiff, by = list(teamData$team), FUN = mean, data = teamData)) @@ -85,7 +85,7 @@ tdData <- tdData[,team := reorder(team, passTdDiff, function(x)-x)] ggplot(tdData, aes(x =team , y=passTdDiff, fill = passTdDiff > 0), position = 'dodge' ) + geom_bar(stat = "identity") + xlab("Team") + ylab("PassTds - RecTds") +scale_fill_discrete(guide = 'none') + ggtitle("Pass and Receiving Touchdown difference") -ggsave("R Scripts/Posts/Value Gap analysis/Figures/passTdDiffernce.png", width = 900/72, height = 545/72, units = "in") +ggsave("./R Scripts/Posts/Value Gap analysis/Figures/passTdDiffernce.png", width = 900/72, height = 545/72, units = "in") ## Generate bar plot for reception difference recData <- data.table(aggregate(teamData$passRecDiff, by = list(teamData$team), FUN = mean, data = teamData)) @@ -94,5 +94,5 @@ recData <- recData[team != "FA" ] recData <- recData[,team := reorder(team, passRecDiff, function(x)-x)] ggplot(recData, aes(x =team , y=passRecDiff, fill = passRecDiff > 0), position = 'dodge' ) + geom_bar(stat = "identity") + xlab("Team") + ylab("Completions - Recepetions") +scale_fill_discrete(guide = 'none') + ggtitle("Pass Completions and Receptions") -ggsave("R Scripts/Posts/Value Gap analysis/Figures/passCompDiffernce.png", width = 900/72, height = 545/72, units = "in") +ggsave("./R Scripts/Posts/Value Gap analysis/Figures/passCompDiffernce.png", width = 900/72, height = 545/72, units = "in")