Re: [問題] ListLinePlot的PlotLegend
看板Mathematica作者chungyuandye (養花種魚數月亮賞星星)時間13年前 (2011/12/14 20:20)推噓3(3推 0噓 3→)留言6則, 3人參與討論串3/4 (看更多)
※ 引述《enunion (珍惜)》之銘言：
: 請問有人知道再用ListLinePlot時
: 怎麼弄出一個方塊上面標示什麼顏色代表什麼意思
: 我試過PlotLegend
: 但是沒用
: 查ListLinePlot的選項也沒有PlotLegend
: 請問還有什麼方法嗎?
: 感謝~
時間很趕的話，湊合用一下～
mylegend[plot_Graphics,legend_List]:=
Block[{p=plot,l=legend,colortemp,color,Opacitytemp,temp},
(*擷取色彩*)
colortemp=Cases[p,Hue[a_,b_,c_]:>Hue[a,b,c],Infinity];
color=colortemp[[-Length@l;;-1]];
(*配對圖例及色彩*)
temp={color[[#]],l[[#]]}&/@Range[Length@color];
(*建立圖例*)
Labeled[p,
Grid[{Graphics[{#[[1]],Thickness[0.1],Opacity[0.75],
Line[{{0,0},{1,0}}]},
ImageSize->{24,24},AspectRatio->8/24,
ImagePadding->0],#[[2]]}&/@temp],
(*指定圖例位置*)
{{Right,Top}}]
]
mylegend[ListLinePlot[Table[Accumulate[RandomReal[{-1,1},250]],{3}],
Filling->0],{"a","b","c"}]
mylegend[ListLinePlot[
Table[Accumulate[RandomReal[{-1,1},250]],{10}]],
CharacterRange["a","z"][[1;;10]]]
--
養花種魚數月亮賞星星
http://chungyuandye.twbbs.org
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.134.231
推
12/14 21:34, , 1F
12/14 21:34, 1F
推
12/14 21:41, , 2F
12/14 21:41, 2F
→
12/14 21:42, , 3F
12/14 21:42, 3F
→
12/14 21:45, , 4F
12/14 21:45, 4F
→
12/14 21:48, , 5F
12/14 21:48, 5F
推
12/14 21:51, , 6F
12/14 21:51, 6F
討論串 (同標題文章)
Mathematica 近期熱門文章
PTT數位生活區 即時熱門文章
