如何使文本正确旋转？

Question

我似乎永远无法让文本在绘图内正确旋转，而相同的文本则可以完美旋转。例如，

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

给出以下内容。

文本倾斜且难以辨认。如何正确旋转文本？

Answer 1

您还可以在Text内移动Rotate：

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

这也可以避免宽高比的倾斜。

Answer 2

发生倾斜是因为直接包含文本并且两个轴的比例不一样。如果将 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}]
]