t1=ReadList["/home/gilfoyle/local/data/ifarmStats-20-jun-25.dat",{Number,Number,Number,Number}]

t2=Table[t1[[i,1]]+((t1[[i,2]])/60),{i,1,Length[t1]}];
p1=Histogram[t2,{210,260,2},Frame->True,FrameLabel->{{"Counts",""},{"Run Time (min)","ifarm results (20-jun-25)"}},
FrameStyle->Black,BaseStyle->FontSize->18,ImageSize->8*72]

sd=N[StandardDeviation[t2]]
ave=N[Mean[t2]]

t3=Table[t1[[i,4]],{i,1,Length[t1]}];
ntotal=Sum[t3[[i]],{i,1,Length[t3]}]

p2=Show[p1,Graphics[Text[StringForm["⟨t⟩ = `` ± `` min",NumberForm[ave,3],NumberForm[sd,2]],{212,15},{-1,0}]],
Graphics[Text[StringForm["(Subscript[n, total]) = ``",NumberForm[ntotal,7]],{212,13},{-1,0}]]
]

Export["~/tmp/ifarmStats1.jpg",p2]

t4=ReadList["/home/gilfoyle/local/data/ifarmStats-20-jun-30.dat",{Number,Number, Number,Number,Number}]

t5=Table[N[t4[[i,1]]+((t4[[i,2]])/60)],{i,1,Length[t4]}];
sd=N[StandardDeviation[t5]]
ave=N[Mean[t5]]
t6=Table[t4[[i,4]],{i,1,Length[t4]}];
ntotal=Sum[t6[[i]],{i,1,Length[t6]}]
p3=Histogram[t5,{380,460,2},Frame->True,FrameLabel->{{"Counts",""},{"Run Time (min)","ifarm results (20-jun-30)"}},
FrameStyle->Black,BaseStyle->FontSize->18,ImageSize->8*72];
p4=Show[p3,Graphics[Text[StringForm["⟨t⟩ = `` ± `` min",NumberForm[ave,3],NumberForm[sd,2]],{380,7.5},{-1,0}]],
Graphics[Text[StringForm["(Subscript[n, total]) = ``",NumberForm[ntotal,6]],{380,6.8},{-1,0}]]
]