graphics - 以编程方式将文本标签添加到曲线族

Question

可能重复：
如何在 Mathematica 中标记不同的曲线？

使用 Mathematica，我想以编程方式为曲线族的每个成员添加文本标签。我宁愿不使用传奇。这是一个例子：

f[x_, a_] := a*x
myplot = Plot[Evaluate@Table[f[x, a], {a, {0.5, 1, 2}}], {x, -5, 5}]
mytext = Graphics[Evaluate@Table[Text["a = " <> ToString[a], 
                                      {5, f[5, a]}, {1, 0}], {a, {0.5, 1, 2}}]]
Show[myplot, mytext]

必须有更好或更标准的方法来做到这一点......对吗？我的 hack 不是很漂亮。文本渗入情节a = 1和a = 0.5

我经历了添加文本标签的交互式方式，如Add Text to a Graphic 所述。不过，我真的很想以编程方式执行此操作。

人们在实践中做什么？人们是否更喜欢以交互方式添加标签，因为以编程方式执行它可能会让人头疼？