ICW2

README.md

John Berlin ICW2 Group Members: John Berlin

Scatter Matrix

setwd(getwd())
playerStats <- read.csv('passing-stats-2014.csv')
pairs(~playerStats$Passing.Yards+playerStats$Passing.TD+playerStats$Rate+playerStats$Rushing.Yards+playerStats$Rushing.TD)

Yards Per Player

library(ggplot2)
setwd(getwd())
playerStats <- read.csv('passing-stats-2014.csv')
yardsConf = data.frame(yrds=playerStats$Passing.Yards,player=playerStats$Player,conf=playerStats$Conf)
ggplot(yardsConf,aes(x=player,y=yrds,fill=conf)) +  geom_bar(stat="identity") + coord_flip()

Average Rushing TD

library(ggplot2)
setwd(getwd())
playerStats <- read.csv('passing-stats-2014.csv')
two <- playerStats[, c("Conf","Rushing.TD")]
ret <- aggregate(two,by=list(two$Conf),FUN="mean")
present <- data.frame(Conf=ret$Group.1,Av.Russing.TD=ret$Rushing.TD)
ggplot(present,aes(x=Conf,y=Av.Russing.TD,fill=Conf)) +  geom_bar(stat="identity") 

avRussingTD.svg

passingYards.svg

scatterMatrix.svg