Lô màu trong Mathematica theo nhãn

Question

Tôi có tập dữ liệu có nhãn mà tôi muốn vẽ bằng các điểm được tô màu theo nhãn của chúng. Có một cách đơn giản làm thế nào để có được số dòng hiện tại bên trong cốt truyện, để tôi có thể xác định loại nào hiện điểm thuộc về?

Tôi hiểu rằng x,y,z là tọa độ của dữ liệu được vẽ, nhưng nó không giúp cho nhãn bên ngoài.

Điều này khá xấu và chỉ hoạt động trên bộ dữ liệu được sắp xếp với phân phối thường xuyên.

data = Import["http://ftp.ics.uci.edu/pub/machine-learning-databases/iris/iris.data"]; 
    data = Drop[data, -1]; (*there one extra line at the end*) 
    inData = data[[All, 1 ;; 4]]; 
    labels = data[[All, 5]]; 
    ListPlot3D[inData, 
     ColorFunction -> 
     Function[{x, y, z}, 
      If[y < 0.33, RGBColor[1, 1, 0.], 
       If[y < 0.66, RGBColor[1, 0, 0.], RGBColor[1, 0, 1]] 
      ] 
     ] 
    ] 

Kết quả mong đợi:

Answer 1

Giả sử rằng points là danh sách các tọa độ và labels một danh sách các các nhãn tương ứng, ví dụ:

points = Flatten[Table[{i, j, Sin[i j]}, 
    {i, 0, Pi, Pi/20}, {j, 0, Pi, Pi/10}], 1]; 
labels = RandomChoice[{"label a", "label b", "label c"}, Length[points]]; 

Mỗi nhãn tương ứng với màu mà tôi viết dưới dạng danh sách quy tắc, ví dụ:

rules = {"label a" -> RGBColor[1, 1, 0], 
    "label b" -> RGBColor[1, 0, 0], "label c" -> RGBColor[1, 0, 1]}; 

Sau đó, các điểm có thể được vẽ trong các màu sắc tương ứng với nhãn của họ như sau

ListPointPlot3D[Pick[points, labels, #] & /@ Union[labels], 
    PlotStyle -> Union[labels] /. rules] 

Sửa

Để màu điểm cá nhân trong một ListPlot3D bạn có thể sử dụng VertexColors, ví dụ:

ListPlot3D[points, VertexColors -> labels /. rules, Mesh -> False] 

Answer 2

Ví dụ:

(* Build the labeled structure and take a random permutation*) 
f[x_, y_] = Sqrt[100 - x x - y y]; 
l = RandomSample@Flatten[{Table[{{"Lower", {x, y, f[x, y] - 5}}, 
           {"Upper", {x, y, 5 - f[x, y]}}}, 
          {x, -5, 5, .1}, {y, -5, 5, .1}]}, 3]; 
(*Plot*) 

Graphics3D[ 
Riffle[l[[All, 1]] /. {"Lower" -> Red, "Upper" -> Green}, 
    Point /@ l[[All, 2]]], Axes -> True]