a = -4;
b = 2;
n = 20;
dx = (b-a)/n;
f[x_] = Exp[-(x+0.6)^2];
graph = Plot[f[x],{x,-3.5,1.5},
AspectRatio->Automatic,
Ticks -> None, ImageSize->640,
PlotStyle->Thickness[0.005],
Axes->None,
(*Epilog->{Style[Text["Stat Talk",{-4,0.1},{-1,-0.75}], FontSize->100]},*)
Prolog->{EdgeForm[Black],
Table[{ColorData["DeepSeaColors"][Mod[0.3*(x-1),1]],Rectangle[{x,0},{x+dx,f[x+dx*0.4]}]},{x,a,b,dx}]},
Frame -> True, FrameTicks -> None, PlotRangePadding->None
]

stat = First@First@Last@First@First@
ImportString[ExportString[Style["STAT", 1],"PDF"],"PDF","TextMode"->"Outlines"];
talk = First@First@Last@First@First@
ImportString[ExportString[Style["Talk", 1],"PDF"],"PDF","TextMode"->"Outlines"];
text = Graphics[{
Translate[{ColorData["DeepSeaColors"][0.5],EdgeForm[Black],stat},{-3.5,-10.95}],
Translate[{ColorData["DeepSeaColors"][1],EdgeForm[Black],talk},{-1.35,-11.25}]
}, Frame->True];
Show[{graph,text}, PlotRange->All]

642/120

stat