如何实现作图显示图例

nklaijiayu

比如说

1. y1=x^2;
   
2. y2=x^3;
   
3. Plot[{y1,y2},{x,=-1,2}]

复制代码

在图像旁边以相应颜色直线指示曲线？

FreddyMusic

PlotLegend

nklaijiayu

To use PlotLegend, you first need to load the Plot Legends Package using

1. Needs["PlotLegends`"]

复制代码

.

done!

chungyuandye

LineStylesFromTooltips[plot_Graphics]:=Cases[plot,
Tooltip[{s__,l_Line},tt_]:>Grid[{{Graphics[
Flatten[{s,Thickness[0.15],Line[{{0,0},{1,0}}]}],
ImageSize->{24,8},AspectRatio->8/24,ImagePadding->0],
tt}}],Infinity]

LineLegendFromTooltips[plot_Graphics]:=Labeled[plot,
Style[Column[LineStylesFromTooltips[plot],Left],"TR",
ShowStringCharacters->False],{{Right,Top}}]

LineLegendFromTooltips[Plot[{Tooltip[x^2,"x^2"],Tooltip[x^3,"x^3"]},{x,-1,2},
PlotStyle->Thickness[0.01]]]

nklaijiayu

4# chungyuandye

学习了