PlotLegends 应用

?

Needs["PlotLegends`"]

ListLinePlot[Table[n^(1/p), {p, 4}, {n, 10}],

 PlotMarkers -> Automatic, GridLines -> {None, Automatic},

 AxesOrigin -> {0, 0}, PlotRange -> {{0, 12}, {0, 12}},

 PlotLegend -> {"A", "B", "C", "D"}, LegendPosition -> {-0.5, 0.5},

 FrameLabel -> {"x", "y"}, Frame -> {{True, False}, {True, False}},

 ImageSize -> 600, ShadowOffset -> 0, LegendBorder -> None,

 LegendOrientation -> Horizontal, LegendBorderSpace -> 0]