Cách chú giải nhiều bộ dữ liệu trong ListPlots

Question

Thường xuyên tôi phải trực quan hóa nhiều tập dữ liệu đồng thời, thường là trong ListPlot hoặc Log-companions của nó. Vì số lượng bộ dữ liệu thường lớn hơn số lượng các kiểu đường có thể phân biệt dễ dàng và việc tạo ra các truyền thuyết cốt truyện lớn vẫn còn hơi không rõ ràng, tôi vẫn đang tìm kiếm một cách tốt để chú thích các dòng/tập hợp khác nhau trong các ô của tôi. Tooltip là tốt đẹp khi làm việc trên màn hình, nhưng họ không giúp đỡ nếu tôi cần phải pritn cốt truyện.

Gần đây, tôi đã chơi xung quanh với các tùy chọn Mesh để liệt kê tập hợp dữ liệu của tôi và tìm thấy một số công cụ lạ

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]] 

Kết quả trông như thế này trên máy tính của tôi (Windows 7 x64, Mathematica 8.0.1):

Funnily, for Mesh-> 2, 8 và 10 kết quả trông giống như tôi mong đợi, phần còn lại thì không. Hoặc là tôi không hiểu tùy chọn Mesh, hoặc nó không hiểu tôi.

Dưới đây là những câu hỏi của tôi:

1. là Mesh tại ListPLot nghe trộm hoặc để tôi sử dụng nó một cách sai lầm?
2. làm cách nào tôi có thể x-shift các điểm lưới của các bộ liên tiếp để tránh ghi đè?
3. bạn có đề xuất nào khác về cách chú thích/liệt kê nhiều tập dữ liệu trong một ô không?

Answer 1

Bạn có thể thử điều gì đó dọc theo các dòng này. Đặt mỗi dòng thành một nút, khi được nhấp, sẽ tự xác định.

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 

Nếu bạn thêm EventHandler, bạn có thể nhận vị trí mà bạn đã nhấp và thêm Inset với nhãn vị trí có liên quan vào ô. Quấn cốt truyện vào một Dynamic để nó tự cập nhật sau mỗi lần nhấn nút. Nó hoạt động tốt.

Để đối phó với các ý kiến, đây là một phiên bản đầy đủ:

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"])]] 

Để thêm một nhấp chuột nhãn trên đường dây. Biểu đồ chú thích cuối cùng, được đặt thành 'plainplot', có thể in và có thể sao chép và không chứa các phần tử động.

[Sau đó trong ngày] Một phiên bản khác, lần này là chung chung và dựa trên biểu đồ ban đầu. (Với các phần của giải pháp Mark McClure được sử dụng.) Đối với các lô khác nhau 'ff' và 'spec' có thể được chỉnh sửa như mong muốn.

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"])]] 

Dưới đây là giao diện. Sau khi chú thích, đối tượng đồ họa đơn giản có thể được tìm thấy được đặt thành biến 'plainplot'.

Answer 2

Một cách tiếp cận là tạo các ô riêng biệt và sau đó hiển thị chúng lại với nhau. Điều này mang lại mã giống với mã của bạn hơn so với bài đăng khác, vì PlotMarkers dường như chơi theo cách chúng ta mong đợi khi giao dịch với một tập dữ liệu. Chúng ta có thể có cùng màu bằng cách sử dụng ColorData với PlotStyle. Dưới đây là kết quả:

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

Bạn sẽ được âm mưu đường cong tính toán hoặc số liệu thực tế?

Nếu đó là đường cong có thể tính toán, thì việc sử dụng plot legend (key) là phổ biến. Bạn có thể sử dụng các dấu gạch ngang và độ dày khác nhau để phân biệt giữa các dòng trên máy in màu xám. Có rất nhiều ví dụ trong tài liệu PlotLegends.

Nếu đó là dữ liệu thực, thì dữ liệu đủ thưa thớt để bạn có thể sử dụng PlotMarkers cho các điểm dữ liệu thực tế (nghĩa là không chỉ định Mesh). Bạn có thể sử dụng tự động PlotMarkers hoặc bạn có thể sử dụng tùy chỉnh PlotMarkers bao gồm các điểm đánh dấu BoxWhisker để biểu thị các sự không chắc chắn khác nhau.