1、 用Labeled给圆加标注——“单位圆”：
Labeled[Graphics[Circle[], Text[单位圆]]
注意，这里添加的文字是文本形式，不属于图片的一部分。
2、 给文字添加会变化的标签，用鼠标点击标签，就会发生变化：
DynamicModule[{c},
Labeled[Graphics[{Dynamic[c], Disk[]}, ImageSize -> Tiny],
Toggler[Dynamic[c], Reverse /@ ColorData["HTML", "ColorRules"],
ImageSize -> Automatic]]]
3、 绘制多条函数曲线，并用Inset添加标签：
legendPlot[xl_List, d_, args___] := Plot[xl, d, Epilog -> Inset[Panel[
Grid[MapIndexed[{Graphics[{ColorData[1, First@#2], Thick,
Line[{{0, 0}, {1, 0}}]}, AspectRatio -> .1,
ImageSize -> 20], #1} &, xl]]],
Offset[{-2, -2}, Scaled[{1, 1}]], {Right, Top}], args]；
legendPlot[{Sin[x], Cos[x], Sinc[x]}, {x, 0, 10}]
4、 用ChartLabels给条形统计图添加标签，并用Placed指定标签的位置：
Table[BarChart[{1, 2, 3}, ChartLabels -> Placed[{"a", "b", "c"}, p],
PlotLabel -> p], {p, {Bottom, Center, Top}}]
5、 不明白为什么下面这个代码无法显示标签：
Table[BarChart[{1, 2, 3}, ChartLabels -> Placed[{"a", "b", "c"}, p],
PlotLabel -> p], {p, {"标签在底端", "标签居中", "标签居顶"}}]
6、 给条形统计图内部添加标签：
Table[PieChart[{1, 2, 3}, ChartLabels -> Placed[{"a", "b", "c"}, p],
SectorOrigin -> {Automatic, 1},
PlotLabel -> p], {p, {"RadialInner", "RadialCenter",
"RadialOuter"}}]
看下面的动态图：
7、 给条形统计图外部添加标签：
Table[PieChart[{1, 2, 3}, ChartLabels -> Placed[{"a", "b", "c"}, p],
SectorOrigin -> {Automatic, 1},
PlotLabel -> p], {p, {"RadialInside", "RadialEdge",
"RadialOutside"}}]
