Reprocessing the existing data sets to a simple version

SetDirectory["/home/campus03/struther/Desktop/Link to Courses/2990/SET/SetRuns"]
Data=Flatten[
Table[
FileName=ToString[StringForm[ "SetData_``.csv", n]];
Import[FileName],
{n,1,662}]];
Tally[Data]

Runs662Data={{3,11703762},{2,12317359},{4,1936331},{0,322343},{5,20189},{6,16}}

The first 662 runs are
{{3, 11703762}, {2, 12317359}, {4, 1936331}, {0, 322343}, {5, 20189}, {6, 16}}

SectorChart[Runs662Data]

BarChart[Runs662Data,BarSpacing->Tiny]

Histogram[Runs662Data]