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") 
