add time series

mysql.R

@@ -21,3 +21,36 @@ WHERE (
 )
 GROUP BY g.id;
 "
+
+query_get_players <- "
+SELECT id, name FROM player;
+"
+
+query_game_coin_vs_time <- "
+SELECT DISTINCT name, f.coins, CAST((f.elapsed_time / 1000) AS INT) as time
+FROM frame f
+LEFT JOIN game g ON (f.game_id = g.id)
+LEFT JOIN player p ON (g.player_id = p.id)
+WHERE (
+    f.game_id = (
+        SELECT id FROM game WHERE (won = 1) ORDER BY timestamp DESC LIMIT 1
+    )
+)
+ORDER BY f.elapsed_time ASC;
+"
+
+query_game_coin_vs_time_start <- "
+SELECT DISTINCT(CAST((f.elapsed_time / 1000) AS INT)) AS time, f.coins
+FROM frame f
+LEFT JOIN game g ON (f.game_id = g.id)
+WHERE (
+    f.game_id = (
+        SELECT id FROM game WHERE (player_id = "
+
+query_game_coin_vs_time_end <- "
+        ) ORDER BY timestamp DESC LIMIT 1
+    )
+)
+GROUP BY CAST((f.elapsed_time / 1000) AS INT)
+ORDER BY f.elapsed_time ASC;
+"

time_series.R

@@ -0,0 +1,27 @@
+library(stringi)
+
+result <- dbSendQuery(conn, query_get_players)
+players <- fetch(result)
+
+if (nrow(players) > 0) {
+    for (row in 1:nrow(players)) { # nolint
+        id <- players[row, "id"]
+        name <- players[row, "name"]
+
+        filename <- stri_trans_general(str = name, id = "Latin-ASCII")
+
+        query <- query_game_coin_vs_time_start
+        query <- paste(query, id)
+        query <- paste(query, query_game_coin_vs_time_end)
+
+        data <- dbGetQuery(conn, query)
+
+        time_series <- ts(data[2], start = 0, frequency = 1)
+
+        png(file = paste("out/", paste(filename, ".png", sep = ""), sep = ""))
+
+        plot(time_series, main = name, yaxt = "n")
+
+        axis(2, pretty(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), n = 12))
+    }
+}