For that one uses the optional level
argument to ClusteringComponents
. Which I guess could have been better documented-- I had to go a ways down into the examples to find out it did what is wanted here.
sublistDealers = {{58., 60., 58.}, {61., 65., 61.}, {55., 55.,
61.}, {58., 54., 53.}, {63., 65., 67.}, {58., 58., 60.}, {58.,
55., 57.}, {54., 64., 63.}, {43., 44., 43.}, {64., 65.,
59.}, {51., 54., 48.}, {3., 3., 5.}, {62., 63., 61.}, {54., 52.,
53.}, {56., 57., 59.}, {62., 60., 61.}, {46., 46., 47.}, {50.,
54., 52.}, {52., 55., 54.}, {60., 57., 59.}, {55., 52.,
55.}, {53., 54., 53.}, {51., 53., 56.}, {50., 48., 53.}, {54.,
56., 57.}, {50., 52., 51.}, {57., 53., 56.}, {59., 56.,
62.}, {45., 49., 47.}, {43., 49., 46.}, {51., 57., 56.}, {46.,
44., 51.}, {53., 56., 51.}, {49., 52., 55.}, {46., 48.,
51.}, {50., 48., 49.}, {51., 56., 54.}, {37., 45., 44.}, {49.,
51., 48.}, {49., 45., 49.}, {42., 47., 42.}, {54., 52.,
43.}, {49., 45., 48.}, {53., 52., 51.}, {44., 43., 41.}, {49.,
46., 44.}, {47., 46., 50.}, {33., 38., 43.}, {47., 52.,
50.}, {36., 31., 36.}, {30., 26., 36.}, {49., 49., 47.}, {44.,
45., 46.}, {33., 42., 46.}, {33., 41., 44.}, {45., 47.,
48.}, {36., 43., 45.}, {35., 38., 39.}, {50., 55., 48.}, {39.,
48., 43.}, {54., 48., 49.}, {39., 38., 37.}, {50., 44.,
47.}, {42., 38., 35.}, {41., 43., 50.}, {41., 44., 45.}, {34.,
30., 34.}, {43., 47., 45.}, {53., 49., 49.}, {53., 58., 51.}, {8.,
3., 3.}, {50., 49., 46.}, {53., 56., 47.}, {50., 47., 49.}, {23.,
25., 45.}, {33., 39., 42.}, {43., 49., 45.}, {40., 42.,
45.}, {45., 45., 43.}, {46., 41., 46.}, {51., 50., 47.}, {43.,
41., 46.}, {42., 48., 40.}, {38., 38., 38.}, {28., 31.,
29.}, {38., 42., 43.}, {51., 45., 46.}};
cc=ClusteringComponents[sublistDealers, 2, 1]
(* Out[700]= {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, \
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \
1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1} *)
QuIck check:
In[703]:= Extract[sublistDealers, Position[cc, 2]]
(* Out[703]= {{3., 3., 5.}, {8., 3., 3.}} *)
This is in fact the second cluster provided by FindClusters[sublistDealers, 2]
.