Varying fonts in graphics

There are a number of options that can be used in StyleForm to vary the way a font appears in a plot. One that is not widely used is FontVariations which permits such things as underlined text. Depending on which operating system and FontFamily you are using the following options may be available. Underline, Shadow, Outline and StrikeThrough. You should consult the HelpBrowser for more information.

Plot label example.

Plot[Sin[x],{x,0,2 π},PlotLabel -> StyleForm["Sin Plot",TraditionalForm,FontSize->14,FontColor ->RGBColor[1,0,0],FontVariations->{"Underline"->True}],PlotStyle ->{AbsoluteThickness[2], Hue[.95]}]

Legend example

Needs["Graphics`Legend`"]

Show[Graphics[Legend[{{Graphics[{Hue[1],Polygon[{{0,1.},{-0.866025,-0.5},{0.866025,-0.5},{0,1.}}]},AspectRatio->Automatic],StyleForm["Sinusoid data a",TraditionalForm,FontSize->12,FontVariations->{"Underline"->True}]},{Graphics[{Hue[0.6],Polygon[{{0,1.},{-0.951057,0.309017},{-0.587785,-0.809017},{0.587785,-0.809017},{0.951057,0.309017},{0,1.}}]},AspectRatio->Automatic],StyleForm["Sinusoid data b",TraditionalForm,FontSize->12,FontVariations->{"Underline"->True}]}},LegendLabel->StyleForm["A Legend Example",FontFamily->Times,FontSize->14,FontVariations->{"Underline"->True}]]],AspectRatio->Automatic];