ListLinePlot[{Table[{x, Sin[x]}, {x, 0.2, 0.4, 0.001}],
Table[{x, Cos[x]}, {x, 0.2, 0.4, 0.001}]},
PlotLegends -> Placed[LineLegend[{"\!\(\*SubscriptBox[
StyleBox[\"n\",\nFontSlant->\"Italic\"], \(1\)]\)",
"\!\(\*SubscriptBox[
StyleBox[\"n\",\nFontSlant->\"Italic\"], \(2\)]\)"},
LegendFunction -> (Framed[#, RoundingRadius -> 3] &),
LegendMargins -> -1], Scaled[{0.88, 0.75}]], Frame -> True,
GridLines -> Automatic]
![](http://tiebapic.baidu.com/forum/w%3D580/sign=03b5296761c6a7efb926a82ecdfbafe9/c4bbceea15ce36d3319d0f882df33a87e850b1f8.jpg?tbpicau=2024-07-14-05_e309d227e1ec333793362a909dda21da)
如图所示,有什么办法让图中红线所指位置,两个图例之间的空白减小一些吗?
Table[{x, Cos[x]}, {x, 0.2, 0.4, 0.001}]},
PlotLegends -> Placed[LineLegend[{"\!\(\*SubscriptBox[
StyleBox[\"n\",\nFontSlant->\"Italic\"], \(1\)]\)",
"\!\(\*SubscriptBox[
StyleBox[\"n\",\nFontSlant->\"Italic\"], \(2\)]\)"},
LegendFunction -> (Framed[#, RoundingRadius -> 3] &),
LegendMargins -> -1], Scaled[{0.88, 0.75}]], Frame -> True,
GridLines -> Automatic]
![](http://tiebapic.baidu.com/forum/w%3D580/sign=03b5296761c6a7efb926a82ecdfbafe9/c4bbceea15ce36d3319d0f882df33a87e850b1f8.jpg?tbpicau=2024-07-14-05_e309d227e1ec333793362a909dda21da)
如图所示,有什么办法让图中红线所指位置,两个图例之间的空白减小一些吗?