Created
June 17, 2011 11:41
-
-
Save noqqe/1031260 to your computer and use it in GitHub Desktop.
R Analytics of ZRE
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env Rscript | |
### General R-Script | |
# MySQL | |
library(RMySQL) | |
con <- dbConnect(MySQL(), user="", password="", host="", client.flag=CLIENT_MULTI_RESULTS) | |
# Style | |
zre_colors <- colors()[grep("green",colors())] | |
zre_mint <- colors()[c(48,86,50)] | |
### Building Graphs | |
# Graph: Wins | |
sql <- paste("SELECT COUNT(id) AS sum, side FROM zombies.zre_wins GROUP BY side;") | |
zre_wins <- dbGetQuery(con, sql) | |
png(file="wins.png", width=400, height=400) | |
par(col="white", bg="transparent", col.axis="white", col.lab="white", col.main="white", lwd=2) | |
barplot(as.matrix(zre_wins$sum), main="Game Summary", names.arg=c(zre_wins$side), beside=TRUE, col=zre_mint) | |
# Graph: Kills | |
sql <- paste("SELECT kills FROM zombies.zre_kills ORDER BY id DESC limit 25;") | |
zre_kills <- dbGetQuery(con,sql) | |
yrange <- range(zre_kills$kills) | |
xrange <- length(zre_kills$kills) | |
png(file="kills.png", width=400, height=400, bg="transparent") | |
par(col="white", bg="transparent", col.axis="white", col.lab="white", col.main="white", lwd=4) | |
plot(zre_kills$kills, xlab="Games", type="b", ylab="Kills", main="Kills from last 25 Attacks", col=zre_mint) | |
#plot(zre_kills$kills, xlab="Timeline", type="b", ylab="Kills", main="Kills from last 100 Attacks", col="chartreuse1") | |
#lines(subset(zre_kills$kills,zre_kills$side=="human"), col="darkolivegreen1", type="o", cex.lab=0.8, lwd=2) | |
# Graph: Weather | |
sql <- paste("SELECT COUNT(id) AS count, weather FROM zombies.zre_weather GROUP BY weather ORDER BY count DESC;") | |
zre_weather <- dbGetQuery(con,sql) | |
png(file="weather.png", width=400, height=400) | |
par(col="white", bg="transparent", col.axis="white", col.lab="white", col.main="white", lwd=2) | |
barplot(zre_weather[,1], main="Weather in ZRE", beside = TRUE, col=zre_colors) | |
legend( 5, 40000, zre_weather$weather, cex=0.9, fill=zre_colors, col="white") | |
# Graph: Highest Kills | |
sql <- paste("SELECT id, kills FROM zombies.zre_kills ORDER BY kills DESC LIMIT 25;") | |
zre_matches_highest <- dbGetQuery(con,sql) | |
png(file="highestkills.png", width = 400, height = 400, bg="transparent") | |
par(col="white", bg="transparent", col.axis="white", col.lab="white", col.main="white", lwd=4) | |
barplot(zre_matches_highest$kills, zre_matches_highest$id, main="25 Highest Kills", beside = TRUE, ylab="Kills", col=zre_colors) | |
# Graph: BirthRate | |
sql <- paste("SELECT Month(date) AS month, count(id) AS born FROM (SELECT *, Month(date) AS M FROM zombies.zre_born) t Group by M; ") | |
#sql <- paste("select side, Month(date) as month, count(id) as born from (select *, Month(date) as M from zombies.zre_born) t Group by M, side;") | |
zre_birthrate <- dbGetQuery(con,sql) | |
png(file="birthrate.png", width=400, height=400) | |
par(col="white", bg="transparent", col.axis="white", col.lab="white", col.main="white", lwd=3) | |
barplot(zre_birthrate$born, xlab="Month", ylab="Born Humans/Zombies", names.arg=c(zre_birthrate$month),main="BirthRate per Month", col=zre_colors) | |
# Quitting SQL Connection | |
dbDisconnect(con) | |
dev.off() | |
graphics.off() |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment