Trama da colorare in Mathematica secondo le etichette

Question

Ho un set di dati con etichette che vorrei tracciare con punti colorati in base alla loro etichetta. C'è un modo semplice per ottenere numeri di riga correnti all'interno della trama, in modo da poter determinare a quale categoria appartiene il punto?

Ho capito che x,y,z sono le coordinate dei dati tracciati, ma non è di aiuto per le etichette esterne.

Questo è piuttosto brutto e funziona solo sul set di dati ordinato con distribuzione regolare.

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

Risultato atteso:

Answer 1

Supponiamo che points è gli elenchi di coordinate e labels un elenco dei etichette corrispondenti, ad esempio

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

Ogni etichetta corrisponde a un colore che sto scrivendo come un elenco di regole, ad es.

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

Poi i punti possono essere rappresentate graficamente nel colore corrispondente alla loro etichetta come segue

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

Modifica

Per colorare i singoli punti in un ListPlot3D si può utilizzare VertexColors, ad esempio

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

Answer 2

Per esempio:

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