画图时，如何调整图下面和左侧指示文字的显示效果

snowhunter

这应该是一个很简单的问题，但折磨我很久了。
问题如下：运行下面命令，画出来的图形中，“x”和“f”这两个指示文字距离图形太远，插入word文档的时候非常丑陋。请问如何能控制一下？
（当然可以输出数据然后利用origin之类的软件画图，但如果希望在mathematica里面搞定，该怎么办？）

1. f[x_] = Sin[x];
   
2. 
   
3. pic = Plot[f[x],
   
4.    {x, 0, 10},
   
5.    
   
6.    Epilog -> {Red, PointSize[0.01],
   
7.      Point[Table[{xx, f[xx]}, {xx, 0, 10, 0.2}]]
   
8.                     },
   
9.    Ticks -> Automatic,
   
10.    Frame -> True,
    
11.    FrameLabel -> {{"f" // Style[#, Black, Bold] &,
    
12.       " "}, {"x" // Style[#, Black, Bold] &, " "}},
    
13.    ImageSize -> {1, 0.618}*500
    
14.               ];
    
15. Export["F:\\201207251820.png", pic, "png", ImageResolution -> 360];

复制代码