ListPlotsで複数のデータセットに注釈を付ける方法

Question

ListPlotまたはLog-companionsで複数のデータセットを同時に視覚化する必要があることがよくあります。データセットの数は通常、容易に区別できるラインスタイルの数よりも多いので、大規模なプロットの凡例を作成するのはやや不得手です。私はまだ、プロットのさまざまなライン/セットに注釈を付ける良い方法を探しています。ツールチップは画面上で作業するときには便利ですが、プロットする必要がある場合は役立ちません。

は最近、私は結果が私のマシン（Windows 7のx64の、Mathematicaの8.0.1）に次のようになります

GraphicsGrid[Partition[Table[ListPlot[ 
Transpose@ 
Table[{Sin[x], Cos[x], Tan[x], Cot[x]}, {x, 0.01, 10, 0.1}], 
PlotMarkers -> {"1", "2", "3", "4"}, Mesh -> i, Joined -> True, 
PlotLabel -> "Mesh\[Rule]" <> ToString[i], ImageSize -> 180], {i, 
1, 30}], 4]] 

を私のデータセットを列挙するためにメッシュオプションで遊んといくつかの奇妙なものが見つかりました：

面白いことに、メッシュ - > 2、8、および10の場合、結果は期待どおりに見えますが、残りの部分はそうではありません。私はメッシュオプションを理解していないか、それとも私を理解していません。

ここに私の質問は以下のとおりです。

1. はメッシュがListPlotの中では、盗聴や私が間違ってそれを使うのですか？
2. オーバープリントを避けるために、どのように連続したセットのメッシュポイントをxシフトできますか？
3. プロット内の複数のデータセットに注釈を付ける/列挙する方法は他にもありますか？

Answer 1

これらの行に沿って何か試してみることができます。各行をクリックすると、それ自体を識別するボタンにします。

plot=Plot[{Sin[x],Cos[x]},{x,0,2*Pi}]; 
sinline=plot[[1,1,3,2]]; 
cosline=plot[[1,1,4,2]]; 
message=""; 
altplot=Append[plot,PlotLabel->Dynamic[message]]; 
altplot[[1,1,3,2]]=Button[sinline,message="Clicked on the Sin line"]; 
altplot[[1,1,4,2]]=Button[cosline,message="Clicked on the Cos line"]; 
altplot 

あなたはEventHandlerのを追加した場合、あなたがクリックした位置を取得し、プロットに関連した位置のラベルとインセットを追加することができます。プロットをダイナミックにラップすると、ボタンをクリックするたびに更新されます。それはうまく動作します。

plot = Plot[{Sin[x], Cos[x]}, {x, 0, 2*Pi}]; 
sinline = plot[[1, 1, 3, 2]]; 
cosline = plot[[1, 1, 4, 2]]; 
AddLabel[label_] := (AppendTo[plot[[1]], 
    Inset[Framed[label, Background -> White], pt]]; 
    (* Remove buttons for final plot *) 
    plainplot = plot; 
    plainplot[[1, 1, 3, 2]] = plainplot[[1, 1, 3, 2, 1]]; 
    plainplot[[1, 1, 4, 2]] = plainplot[[1, 1, 4, 2, 1]]); 
plot[[1, 1, 3, 2]] = Button[sinline, AddLabel["Sin"]]; 
plot[[1, 1, 4, 2]] = Button[cosline, AddLabel["Cos"]]; 
Dynamic[EventHandler[plot, 
    "MouseDown" :> (pt = MousePosition["Graphics"])]] 

行にラベルのクリックを追加するには：コメントに応えて

、ここでの充実したバージョンです。 'plainplot'に設定された最後の注釈付きグラフは、印刷可能でコピー可能であり、動的要素を含んでいません。

[後日]別のバージョン、今回は一般的で、初期のチャートに基づいています。 （Mark McClureのソリューションの部分が使用されています）さまざまなプロットに対して、 'ff'と 'spec'は必要に応じて編集できます。

ff = {Sin, Cos, Tan, Cot}; 
spec = Range[0.1, 10, 0.1]; 
(* Plot functions separately to obtain line counts *) 
plots = Array[ListLinePlot[ff[[#]] /@ spec] &, Length@ff]; 
plots = DeleteCases[plots, Line[_?(Length[#] < 3 &)], Infinity]; 
numlines = Array[Length@Cases[plots[[#]], Line[_], Infinity] &, 
    Length@ff]; 
(* Plot functions together for annotation plot *) 
plot = ListLinePlot[#@spec & /@ ff]; 
plot = DeleteCases[plot, Line[_?(Length[#] < 3 &)], Infinity]; 
lbl = Flatten@Array[ConstantArray[ToString@ff[[#]], 
     numlines[[#]]] &, Length@ff]; 
(* Line positions to substitute with buttons *) 
linepos = Position[plot, Line, Infinity]; 
Clear[line]; 
(* Copy all the lines to line[n] *) 
Array[(line[#] = plot[[Sequence @@ Most@linepos[[#]]]]) &, 
    Total@numlines]; 
(* Button function *) 
AddLabel[label_] := (AppendTo[plot[[1]], 
    Inset[Framed[label, Background -> White], pt]]; 
    (* Remove buttons for final plain plot *) 
    plainplot = plot; 
    bpos = Position[plainplot, Button, Infinity]; 
    Array[(plainplot[[Sequence @@ Most@bpos[[#]]]] = 
     plainplot[[Sequence @@ Append[Most@bpos[[#]], 1]]]) &, 
    Length@bpos]); 
(* Substitute all the lines with line buttons *) 
Array[(plot[[Sequence @@ Most@linepos[[#]]]] = Button[line[#], 
     AddLabel[lbl[[#]]]]) &, Total@numlines]; 
Dynamic[EventHandler[plot, 
    "MouseDown" :> (pt = MousePosition["Graphics"])]] 

次のようになります。アノテーションの後、プレーングラフィックスオブジェクトは 'plainplot'変数に設定されています。

Answer 2

1つの方法は、プロットを別々に生成し、それらを一緒に表示することです。 PlotMarkersは、1つのデータセットを扱うときに期待したやり方で再生するように見えるので、これにより、他の投稿よりもあなたのようなコードが得られます。 PlotStyleでColorDataを使用して同じ色を得ることができます。ここでの結果だ：

ff = {Sin, Cos, Tan, Cot}; 
plots = Table[ListLinePlot[ff[[i]] /@ Range[0.1, 10, 0.1], 
    PlotStyle -> {ColorData[1, i]}, 
    PlotMarkers -> i, Mesh -> 22], {i, 1, Length[ff]}]; 
(* Delete the spurious asymptote looking thingies. *) 
plots = DeleteCases[plots, Line[ll_?(Length[#] < 4 &)], Infinity]; 
Show[plots, PlotRange -> {-4, 4}] 

Answer 3

あなたは計算曲線または実際のデータをプロットするつもりですか？

計算可能なカーブの場合は、plot legend (key)を使用するのが一般的です。 異なるダッシュおよび太さを使用して、グレースケールプリンタ上の線を区別することができます。 PlotLegendsのドキュメントには多くの例があります。

実際のデータの場合、通常、データは実際のデータポイントにPlotMarkers（つまりMeshを指定しない）を使用できるほど疎です。自動PlotMarkersを使用することもできますが、さまざまな不確実性を示すカスタムPlotMarkersBoxWhiskerのマーカーを使用することもできます。