ICW2

1)

R Code:

source = read.csv("C:\\Users\\Evan\\Desktop\\CS725\\ICW2\\passing-stats-2014.csv")

pairs(~Passing.Yards+Passing.TD+Rate+Rushing.Yards+Rushing.TD, data=source, main="Scatterplot Matrix")

Barchart of Passing Yards Per Player

2)

R Code:

source = read.csv("C:\\Users\\Evan\\Desktop\\CS725\\ICW2\\passing-stats2014.csv")

conference <- unique(source$Conf)

par(mai=c(0.8,2,1,1))

barplot(source$Passing.Yards,xlab=source$Player,horiz=TRUE,names.arg=fileData$Player, cex.names=0.4, las=1, col=rainbow(NROW(conference)),xlim=c(0,5500))

mtext("Passing Yards", side=1, line=2)

legend("topright", title="Conf", legend=conference, bty="n", fill=rainbow(NROW(conference)))

3)

R Code:

source = read.csv("C:\\Users\\Evan\\Desktop\\CS725\\ICW2\\passing-stats-2014.csv")

conference <- unique(source$Conf)

avginterceptions <- aggregate(source[, 11], list(Conf=source$Conf), mean)

barplot(avginterceptions$x, names.arg=avginterceptions$Conf, col=rainbow(NROW(conference)), xlab="Avg Interception", horiz=TRUE, ylab="Conf", xlim=c(0,40))

Built with [blockbuilder.org](http://blockbuilder.org)