Как заставить текст вращаться правильно?

Question

Я никогда не смогу заставить текст вращаться правильно внутри графика, тогда как тот же текст вращается совершенно иначе.Например,

Plot[Sin[x], {x, -2 Pi, 2 Pi}, 
 Epilog -> 
  First@Graphics[Rotate[Text["Sine", {Pi, 1/2}], -30 Degree]]]

дает следующее:

Текст искажен и трудно читаем.Как правильно повернуть текст?

Answer 1

Перекос происходит из-за того, что текст включен напрямую, а масштаб двух осей не одинаков.Если вы установите AspectRatio в Automatic, масштаб будет таким же, и текст будет читабелен:

Plot[Sin[x], {x, -2 Pi, 2 Pi}, 
 Epilog -> First@Graphics[Rotate[Text["Sine", {Pi, 1/2}], -30 Degree]],
 AspectRatio -> Automatic
]

Чтобы сохранить соотношение сторон (что, вероятно,вы хотите), оберните текст в Inset:

Plot[Sin[x], {x, -2 Pi, 2 Pi},
 Epilog -> Inset[Rotate[Text["Sine"], -70 Degree], {Pi, 1/2}]
]

Answer 2

Вы также можете переместить Rotate внутрь Text:

Plot[Sin[x], {x, -2 Pi, 2 Pi}, 
 Epilog -> Text[Rotate["Sine", -70 Degree], {Pi, 1/2}]]

, что также позволит избежать перекоса из соотношения сторон.