Легенды с образцами 

Создание легенд с образцами заданных стилей, форм и размеров.

In[1]:=

X Row[Table[ SwatchLegend[RandomInteger[{63, 93}], Array[Row[{"l", #1}] &, 7], LegendMarkers -> marker, LegendMarkerSize -> 16, LabelStyle -> {GrayLevel[0.3], Bold, 16}], {marker, {Automatic, "GlassRectangle", "FadingRectangle", "Bubble", "SphereBubble", "PolyhedronBubble"}}], Spacer[2]]

Out[1]=