如何让文本正确旋转？

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}]]

这也将避免从宽高比倾斜。