files=FileNames["./studyParams.*"];WhatAmI= Import["./studyWhatAmI","List"];

nparams = Length[WhatAmI];files=Drop[files,-(Length[files]-nparams)];

studyparamplots=Table[i,{i,1,Length[files]}];

For[p=1,p≤Length[files],p++,data= Import[files[[p]],"Table"];
df=Table[{data[[i]][[1]],data[[i]][[2]]},{i,1,Dimensions[data][[1]]}];dg=Table[{data[[i]][[1]],data[[i]][[3]]},{i,1,Dimensions[data][[1]]}];dh=Table[{data[[i]][[1]],data[[i]][[4]]},{i,1,Dimensions[data][[1]]}];
fdg=Table[{data[[i]][[1]],data[[i]][[5]]},{i,1,Dimensions[data][[1]]}];gdh=Table[{data[[i]][[1]],data[[i]][[6]]},{i,1,Dimensions[data][[1]]}];
Plf=ListPlot[df,PlotRange->All,Joined->True,DisplayFunction->Identity,PlotStyle->{Dashed}];
Pldg=ListPlot[dg,Joined->True,DisplayFunction->Identity,PlotStyle->{Dashed}];
Plfdg=ListPlot[fdg,Joined->True,PlotStyle->{Blue},DisplayFunction->Identity];
gradients= Show[{Pldg,Plfdg},PlotRange->All,Axes->{True,True}];
Pldh=ListPlot[dh,PlotRange->All,Joined->True,DisplayFunction->Identity,PlotStyle->{Dashed}];
Plgdh=ListPlot[gdh,Joined->True,PlotStyle->{Red},DisplayFunction->Identity];
hessians=Show[{Pldh,Plgdh},PlotRange->All,Axes->{True,True}];
studyparamplots[[p]]=Show[GraphicsGrid[{{WhatAmI[[p]],Plf,gradients,hessians}}],ImageSize->Large]]

Gradient - Analytic Dashed, FD Blue
Hessian - Analytic Dashed , FD  Red

For[p=1,p≤Length[files],p++,Print[studyparamplots[[p]]]]