# Graph of world record high scores for Donkey Kong. # https://www.youtube.com/watch?v=LAQ2vEHq2N4 # http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 # https://en.wikipedia.org/wiki/Donkey_Kong_high_score_competition#Timeline # https://donkeykongblog.blogspot.com/2011/12/donkey-kong-world-record-history.html # http://superbunker.com/resources/dkt/ # Not used but maybe should be: https://kongtrackr.herokuapp.com/ library(data.table) library(ggplot2) # Invalidated Billy Mitchell's >1M scores because they've been removed from leaderboards. # http://donkeykongforum.com/index.php?topic=2055.0 data <- fread(" date,score,class,valid,player,url 2018-02-02,1247700,arcade,T,Robbie Lakeman,http://donkeykongforum.com/index.php?topic=2056.0 2017-12-21,1230100,arcade,T,Robbie Lakeman,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2016-05-05,1218000,arcade,T,Wes Copeland,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2013-10-04,1206800,emulator,T,Dean Saglio,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2017-11-12,1189500,arcade,T,John McCurdy,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2017-05-07,1143100,arcade,T,Jason Wade,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2012-11-05,1138600,arcade,T,Hank Chien,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2014-09-23,1137500,arcade,T,Mark Kiehl,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2013-09-26,1136500,arcade,T,Ross Benziger,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2013-01-11,1135900,arcade,T,Vincent Lemay,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2017-07-01,1111300,emulator,T,Thomas Bauer,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2015-08-08,1110000,arcade,T,Steve Wiltshire,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2015-10-10,1108100,arcade,T,Dave McCrary,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2011-08-15,1107600,emulator,T,Jeff Willms,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2013-10-30,1103700,arcade,T,Jeff Wolfe,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2013-08-05,1089400,emulator,T,Phil Tudose,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2016-03-19,1076700,arcade,T,Tim Sczerby,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2014-05-17,1076000,arcade,T,Mike Groesbeck,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2014-08-26,1072200,arcade,T,Corey Chambers,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2010-08-30,1064500,arcade,T,Steve Wiebe,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 2010-07-31,1062800,arcade,F,Billy Mitchell,http://donkeykongforum.com/index.php?topic=366.msg6365#msg6365 1982-11-07,874300,arcade,T,Billy Mitchell,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=287 2000-08-17,879200,arcade,T,Tim Sczerby,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=464 2003-06-30,947200,arcade,T,Steve Wiebe,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=522 2004-05-27,933900,arcade,T,Billy Mitchell,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=654 2004-05-29,985000,arcade,T,Steve Wiebe,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=686 2004-06-29,999500,arcade,T,Steve Wiebe,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=700 2004-07-04,1000600,arcade,T,Steve Wiebe,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=716 2005-06-03,985600,arcade,T,Steve Wiebe,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=839 2005-06-04,1047200,arcade,F,Billy Mitchell,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=873 2006-08-03,1049100,arcade,T,Steve Wiebe,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=974 2007-07-13,1050200,arcade,F,Billy Mitchell,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=995 2010-02-26,1061700,arcade,T,Hank Chien,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1062 2010-12-27,1068000,arcade,T,Hank Chien,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1097 2011-02-27,1090400,arcade,T,Hank Chien,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1097 2012-05-18,1110100,arcade,T,Hank Chien,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1097 2012-07-25,1127700,arcade,T,Hank Chien,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1097 2014-09-05,1141800,arcade,T,Robbie Lakeman,https://en.wikipedia.org/wiki/Donkey_Kong_high_score_competition#Timeline 2014-12-01,1144800,arcade,T,Robbie Lakeman,https://en.wikipedia.org/wiki/Donkey_Kong_high_score_competition#Timeline 2015-06-24,1158400,arcade,T,Robbie Lakeman,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1159 2015-09-17,1170500,arcade,T,Wes Copeland,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1159 2015-09-18,1172100,arcade,T,Robbie Lakeman,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1159 2015-10-21,1177200,arcade,T,Robbie Lakeman,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1159 2016-01-04,1190000,arcade,T,Wes Copeland,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1159 2016-04-11,1190200,arcade,T,Robbie Lakeman,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1159 2016-04-19,1195100,arcade,T,Wes Copeland,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1159 1999-09-12,893400,emulator,T,Ben Jos Walbeehm,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1218 2001-11-30,904100,emulator,T,Ben Jos Walbeehm,https://www.youtube.com/watch?v=LAQ2vEHq2N4&t=1218 ", colClasses = c( date = "Date", score = "integer", class = "factor", valid = "character", player = "character", url = "character" )) data[, valid:=as.logical(valid)] # Discard all that don't beat a previous record. setkey(data, date, score) data <- rbind( data.table(validity="valid", data[valid==TRUE]), data.table(validity="invalid", data) ) data[, max.score:=cummax(score), by=.(validity, class)] hiscores <- data[score >= max.score, .SD, by=.(validity, class)] p <- ggplot() p <- p + geom_step(data=hiscores[validity=="invalid"], aes(date, score, alpha=validity, group=class, color=class)) p <- p + geom_point(data=hiscores[validity=="invalid" & !valid], aes(date, score, alpha=validity, group=class, color=class)) p <- p + geom_step(data=hiscores[validity=="valid"], aes(date, score, alpha=validity, group=class, color=class)) p <- p + geom_point(data=hiscores[validity=="valid"], aes(date, score, alpha=validity, group=class, color=class)) p <- p + theme_minimal() p <- p + scale_color_brewer(palette="Set1") p <- p + scale_alpha_manual(values=c(invalid=0.2, valid=0.8)) p <- p + labs(title="Donkey Kong score WR") ggsave("dk.png", p, width=6, height=4, dpi=120, bg="white")