怎么在图片的边框外加文字？

Question

1，怎么在图片中的红圈的地方（边框外）加一个字母？如图片中字母A。

注：1，我想用文本加，但是文本只能在边框里面显示，到了边框外面就不能显示了。

        2，FrameLabel也不行，这个函数只能加在中间，如途中的a₁

Answer 1

好像Plot等绘图函数都是在画完图像之后，再添加上Frame，使用Epilog添加文字也会被Frame盖住，显示不出来。

可以采用两个图形合并的方式，来达到目的：先画一个边框（带文字A），然后画不带边框的图，然后合并。

frame=Graphics[,Frame->True,FrameLabel->{,},FrameTicksStyle->Directive[Black,15],Epilog->{Text[Style["A",20],{-0.06,0.9}]},PlotRange->{{0,1},{0,0.95}}];
photo=Plot[x^2,{x,0,2}];
Show[frame,photo]

其中添加空的FrameLabel，是为了增加frame左边的空间，避免A被截断。

Comments

其实不需要Show，添加选项PlotRangeClipping -> False就可以，不过我也不知道该怎么让旁边的白边再宽一点……