In[]:=
In[]:=
c=First[b]​​​​e=Cases[d=Rest[b],{_?NumberQ..,_String}];
Out[]=
{a,b,c,d,e,f,g,h,i,j,k,l,m}
In[]:=
f=Union[Last[#]&/@e]
Out[]=
{aa,bb,cc,dd,ee,ff,gg,hh,ii,jj,kk}
In[]:=
g=Cases[e,{_?NumberQ..,#}]&/@f;
In[]:=
h=Most[c]
Out[]=
{a,b,c,d,e,f,g,h,i,j,k,l}
In[]:=
Column[{GraphicsRow[Graphics[Text@#]&/@h,FrameAll,ImageSize600,PlotRangePaddingNone],Row[{GraphicsColumn[Graphics[Text@#]&/@h,ImageSize{50,600},Frame->All,PlotRangePaddingNone],Overlay[{ArrayPlot[Correlation[Most/@g[[1]]],ColorFunctionColorData["Temperature"],FrameNone,ImageSize600,PlotRangePaddingNone,Mesh->True,ColorFunctionScaling->False],GraphicsGrid[Map[NumberForm[#,{3,2}]&,Correlation[Most/@g[[1]]],{2}],ImageSize600,AspectRatio1,PlotRangePadding->None,AlignmentRight]}]}]},AlignmentRight,Spacings0]
Out[]=