Analyzing the List of All Games

Data Acquired here : http://pastebin.com/DG1CsVXk

Import and Initial Cleaning

gameliststring=Import["~/Documents/list_of_every_video_game_ever_(v3).txt"];

gamelist=(StringTrim[#,RegularExpression["[\\s\\(\\)]*"]]&/@(StringSplit[#,RegularExpression["\\)?\\s*\\("]]&))/@StringSplit[gameliststring, "\n"][[4;;]];

Length[gamelist]

Most common words in Titles

titlewords=SortBy[Tally[Flatten[StringSplit[ToLowerCase[#],RegularExpression@"[^\\w\\']+"]&/@gamelist[[All,1]]]],1/#[[2]]&];

BarChart[titlewords[[;;50,2]],ChartLabels->Placed[titlewords[[;;50,1]],{{0.5,0},{0.9,1}},Rotate[#,(2/7) Pi]&],ChartStyle->24, ImageSize->{800,500}]

nontrivial=SortBy[ReplaceRepeated[DeleteCases[titlewords,{"vol"|"the"|"and"|"a"|"of"|"in"|"no"|"to"|"for"|"is"|"1"|"10"|"13"|Alternatives@@(ToString/@Range[2,5])|"ii"|"iii"|Alternatives@@(ToString/@Range[2000,2016])|Alternatives@@("0"<>ToString[#]&/@Range[5,9]),_}],{a___,{b_,c_},d___, {e_,f_},g___}/;StringMatchQ[e,b~~"s"|"es"]:>{a,{b,c+f},d,g},MaxIterations->25],1/#[[2]]&];

BarChart[nontrivial[[;;50,2]],ChartLabels->Placed[nontrivial[[;;50,1]],{{0.5,0},{0.9,1}},Rotate[#,(2/7) Pi]&],ChartStyle->2, ImageSize->{800,500}]

Length[Cases[titlewords,{_,1}]]

Length[titlewords]

Common Subtitles

subtitles=SortBy[Tally[((StringSplit[#,": "]/.{a_}:>{"No Subtitle"})[[-1]]&/@gamelist[[All,1]])],1/#[[2]]&][[;;500]];

BarChart[subtitles[[2;;50,2]],ChartLabels->Placed[subtitles[[2;;50,1]],{{0.5,0},{0.9,1}},Rotate[#,(2/7) Pi]&] ,ChartStyle->"Rainbow"]/.ImageScaled[{1/2,1}]->ImageScaled[{0.9,1}]

Number of Games By Year

withYear=#[[1,2]]->#[[All,1]]&/@GatherBy[Cases[gamelist,{name_,___,a_String/;StringMatchQ[a,RegularExpression["[\\w\\s,]*(?:19[789][0-9])|(?:20[01][0-9])[\\w\\s,]*"]],___}:>{name,ToExpression[StringCases[a,RegularExpression@"(?:19[789][0-9])|(?:20[01][0-9])"][[1]]]}],#[[2]]&];

N[Length[Join@@withYear[[All,2]]]/Length[gamelist]]

numPerYear=Thread[{Range[1984,2016],Replace[(Range[1984,2016]/.withYear),{a_List:>Length[a],b_?NumericQ:>0},1]}]

BarChart[numPerYear[[All,2]],ChartLabels->Placed[numPerYear[[All,1]],{{0.5,0},{0.9,1}},Rotate[#,(2/7) Pi]&]]

Top Words By Year

Grid[Prepend[SortBy[Prepend[With[{sorted=DeleteCases[SortBy[Tally[Flatten[StringSplit[ToLowerCase[#],RegularExpression@"[^\\w\\']+"]&/@#[[2]]]],1/#[[2]]&],{"the"|"and"|"a"|"of"|"in"|"no"|"to"|"for"|"is",_}]},If[Length[sorted]≥10,sorted[[;;10]][[All,1]],sorted[[All,1]]]],#[[1]]]&/@withYear,#[[1]]&][[9;;-2]],{"Year",1,2,3,4,5,6,7,8,9,10}]]

Grid[Prepend[SortBy[Prepend[With[{sorted=DeleteCases[SortBy[Tally[Flatten[StringSplit[ToLowerCase[#],RegularExpression@"[^\\w\\']+"]&/@#[[2]]]],1/#[[2]]&],{"vol"|"the"|"and"|"a"|"of"|"in"|"no"|"to"|"for"|"is"|"1"|"10"|"13"|Alternatives@@(ToString/@Range[2,5])|"ii"|"iii"|Alternatives@@(ToString/@Range[2000,2016])|Alternatives@@("0"<>ToString[#]&/@Range[5,9]),_}]},If[Length[sorted]≥10,sorted[[;;10]][[All,1]],sorted[[All,1]]]],#[[1]]]&/@withYear,#[[1]]&][[9;;-2]],{"Year",1,2,3,4,5,6,7,8,9,10}]]

Note : add count as tooltip

Most Unique Year For Gaming by Titles

Least Unique Year for Gaming by Titles

Top Platforms

platforms={"Windows","PS2","PC-9801","Linux/Unix","PS1","PS3","PSP","Mobile","Arcade","NES","Apple IIe","C64","X360","Amstrad CPC","ZX Spectrum","Xbox","GameCube","Wii U","ZX Spectrum 128","MSX","TI99","SG-1000","GBC","N64","iOS","FM7","OS/2","PS Vita","Amiga","Nintendo DS","Wii","Mac","EXL 100","Android","Thomson","3DS","Dreamcast","Atari ST","MS-DOS","GBA","C128","Oric","Chip 8","PC-8801","PCE CD/TG-CD","Mega Drive / Genesis","VIC-20","X68000","Sharp X1","Atari 8-bit","Amiga AGA","Famicom Disk System","PCE / TurboGrafx","MSX2","GP2X","BBC","SNES","Flash","SMS","GameKing","ColecoVision","Neo Geo","Apple IIGS","HP-41","Astrocade","C16/Plus4","Saturn","BeOS","Game Boy","Sega-CD / Mega-CD","PC-6001","Atari 2600","Arcadia 2001","Win3.1","Epoc","Atom","3DO","Mattel Aquarius","Electron","ZX 81","Dragon32","Zeebo","QL","Enterprise","Archimedes","Virtual Boy","TRS-80","MicroBee","Sharp MZ-700","CD-i","FM Towns","Game Gear","Lynx","Internet Only","Odyssey²","Tandy","Pico","Atari 5200","BK11M","Intellivision","Atari 7800","DEC PDP-1","TI Calculators","32X","Jaguar","PC-FX","Pippin","PET","Odyssey³","Creativision","PLATO","WinCE","DVD player","Vii","V.Smile","WSC","Supervision","N-Gage","Xbox One","PS4","GP32","Vectrex","VG5000µ","SAM","Atari Falcon","custom","Odyssey","WS","Mega LD","R-Zone","Cassette Vision","Konix","Game & Watch","Sord M5","NGPC","Tiger Game.COM","Palm","Game Master","VC 4000","Leapster","Fairchild Ch. F","Collector's Edition","Special Edition","Limited Edition","Gold Edition","included games","Shokai Genteiban","Deluxe Edition","Limited Collector's Edition","Genteiban","Series 2"};

gamesByPlatform=#[[1,-1]]->#[[All,;;-2]]&/@GatherBy[Cases[gamelist,{__,Alternatives@@platforms}],#[[-1]]&];

Length[Join@@gamesByPlatform[[All,2]]]

platformTally=SortBy[gamesByPlatform/.{HoldPattern[plat_String->games_List]:>{plat,Length[games]}},1/#[[2]]&];

BarChart[platformTally[[;;25,2]],ChartLabels->Placed[platformTally[[All,1]],{{0.5,0},{0.9,1}},Rotate[#,(2/7) Pi]&], ChartStyle->"Pastel",AspectRatio->1/5]

Top Words By Platform

Export["~/Documents/RecreationalProgramming/GamesList/PlatformWords.jpg",Grid[DeleteCases[Prepend[SortBy[Prepend[With[{sorted=DeleteCases[SortBy[Tally[Flatten[StringSplit[ToLowerCase[#],RegularExpression@"[^\\w\\']+"]&/@#[[2]]]],1/#[[2]]&],{"vol"|"the"|"and"|"a"|"of"|"on"|"in"|"no"|"to"|"for"|"is"|"1"|"10"|"13"|Alternatives@@(ToString/@Range[2,5])|"ii"|"iii"|Alternatives@@(ToString/@Range[2000,2016])|Alternatives@@("0"<>ToString[#]&/@Range[5,9]),_}]},If[Length[sorted]≥10,sorted[[;;10]][[All,1]],sorted[[All,1]]]],#[[1]]]&/@Thread[gamesByPlatform[[All,1]]->gamesByPlatform[[All,2,All,1]]],#[[1]]&][[9;;-2]],{"Platform",1,2,3,4,5,6,7,8,9,10}],{"Limited Collector's Edition"|"Collector's Edition"|"Gold Edition"|"included games",__}]]]