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]
これを行うためのより良い、またはより標準的な方法が必要です...そうですか？私のハックはあまりきれいではありません。a = 1とのプロットにテキストが入り込みます。a = 0.5
Add Text to a Graphicで概説されているように、インタラクティブな方法でテキスト ラベルを追加しました。私は本当にプログラムでこれをやりたいと思っています。
人々は実際に何をしますか？プログラムでラベルを追加すると頭が痛くなる可能性があるため、インタラクティブにラベルを追加することを好む人はいますか?