Joined->True,PlotRange->{0,3*avgTris},DataRange->{0,measureSkip*maxTime},

Frame->True,FrameLabel->{"timesteps","number of triangles"},

PlotLabel->plotlabel,ImageSize->300,

PlotStyle->{Black},

Epilog->{PointSize[0.015],startPoints1}

];

(*

plotTimeEvol2=ListPlot[fullData,

Joined->True,PlotRange\[Rule]All,DataRange->{0,measureSkip*maxTime},

PlotStyle\[Rule]{Black,Opacity[0.3]}

];*)

plotTimeEvol3=ListPlot[coarseDatasCCM1,

Joined->True,PlotRange->All

];

plotTimeEvol4=Show[plotTimeEvol1,plotTimeEvol3]

(* Map[ListPlot[#,Joined->True,PlotRange\[Rule]{minCount,maxCount},DataRange\[Rule]{0,maxTime}]&,coarseData] *)

(* ::Subsection:: *)

(*New code*)

getCombinedData[run_]:=Module[{numEdges,maxTime,skipPts,getShiftedData,hhData,ccm1Data,ccm2Data},

numEdges=run[[2]];

maxTime=Length[run[[3]]];

skipPts=Max[1,Round[maxTime/500]];

getShiftedData[offset_,data_]:=If[Length[data]==0,{},

MapIndexed[{offset+(First[#2]-1)*skipPts,Mean[#1]}&,Partition[data,skipPts]]

];

hhData=getShiftedData[0,run[[3]]];

ccm1Data=getShiftedData[0*numEdges*run[[4,1]],run[[4,2]]];

ccm2Data=getShiftedData[0*numEdges*run[[5,1]],run[[5,2]]];

{Legended[hhData,"\[Tau] = "<>ToString[run[[1,2]]]],ccm1Data,ccm2Data}

]

dataSets=Map[getCombinedData,gdata,{3}];

dataSetsFlattened=Flatten[dataSets,3];

colorList=Table[ColorData[97,"ColorList"][[1+Floor[i/3]]],{i,0,Length[dataSetsFlattened]-1}];

Export[NotebookDirectory[]<>"plots/timeevol_ccm.pdf",plot1]

Export[NotebookDirectory[]<>"plots/timeevol_ccm_log.pdf",plot1log]