Building a nine - region cluster chart with Tooltip to display labels associated with 2D pointsQuestion about BorderingCountiesListPlot with labels that appear when the pointer goes over the pointsHow do I display the numeric value of a curve with Tooltip?Annotating plots by adding labels with arrows connecting them to data points
Why are there two fundamental laws of logic?
What exactly did this mechanic sabotage on the American Airlines 737, and how dangerous was it?
Does the Prepare Food ability from Cook's Utensils stack?
How to say "cheat sheet" in French
How does a preliminary hearing differ from a full trial?
Is it really necessary to have a four hour meeting in Sprint planning?
Can Northern Ireland's border issue be solved by repartition?
practicality of 30 year fix mortgage at 55 years of age
Writing a letter of recommendation for a mediocre student
How to justify a team increase when the team is doing good?
Safe to use 220V electric clothes dryer when building has been bridged down to 110V?
Comma Code - Automate the Boring Stuff with Python
Is it impolite to ask for an in-flight catalogue with no intention of buying?
Draw a horizontal line from the left margin to the end of centered text
What is the need of methods like GET and POST in the HTTP protocol?
Can an integer optimization problem be convex?
while loop factorial only works up to 20?
Order of ingredients when making Pizza dough
Two trains move towards each other, a bird moves between them. How many trips can the bird make?
Why does (inf + 0j)*1 evaluate to inf + nanj?
Subverting the emotional woman and stoic man trope
Should the average user with no special access rights be worried about SMS-based 2FA being theoretically interceptable?
2000s Animated TV show where teenagers could physically go into a virtual world
When is it acceptable to write a bad letter of recommendation?
Building a nine - region cluster chart with Tooltip to display labels associated with 2D points
Question about BorderingCountiesListPlot with labels that appear when the pointer goes over the pointsHow do I display the numeric value of a curve with Tooltip?Annotating plots by adding labels with arrows connecting them to data points
.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;
3
$begingroup$
I'm attempting to build a nine-region cluster chart using Tooltip to display labels associated with 2-D points also displayed on it. I do NOT want to use "FindClusters". I want to design my own cluster chart as explained below. The following mock data is made-up of 2-D points where each points have a label-identifier called a "NAICS" code (NAICS stands for "North American Industry
Classification System").
mockdataWithNAICS = "29-1141", 186, 112, "41-2031", 123, 92, "41-1011", 65, 404, "43-4051", 108, 646, "31-1014", 643, 246,
"49-9071", 356, 363, "43-1011", 543, 381, "43-5081", 268, 674, "53-3032", 416, 653, "37-3011", 514, 428, "37-2012", 501, 58,
"33-9032", 441, 598, "35-2014", 633, 138, "29-2061", 414, 590, "53-3033", 98, 155, "35-3031", 179, 431, "49-3023", 93, 623,
"35-3021", 37, 578, "41-2011", 256, 237, "37-2011", 302, 50, "47-1011", 518, 2, "11-9111", 313, 294, "31-9092", 698, 136,
"43-3031", 608, 610, "43-6013", 562, 515, "13-2011", 415, 327, "21-1093", 191, 72, "41-4012", 212, 92, "41-3031", 546, 418,
"31-1011", 591, 49, "47-2031", 405, 526, "41-3021", 191, 297, "15-1151", 442, 445, "43-6011", 118, 185, "49-1011", 472, 402,
"53-7062", 348, 552, "43-4171", 409, 396, "43-6014", 348, 247, "53-1031", 629, 59, "47-2061", 589, 534, "27-1026", 22, 377,
"29-1069", 445, 74, "49-9021", 647, 539, "43-9061", 25, 543, "11-1021", 19, 165, "41-1012", 482, 199, "29-1062", 1, 68,
"43-4081", 217, 112, "41-3099", 663, 66, "11-3031", 329, 392, "53-7061", 357, 515, "35-2021", 488, 245, "31-9091", 318, 679,
"51-1011", 650, 349, "11-9051", 38, 145, "53-3031", 166, 691, "39-9021", 561, 127, "39-5012", 665, 362, "47-2111", 397, 532,
"43-3071", 326, 271, "29-2034", 361, 450, "35-9011", 12, 366, "29-1123", 16, 211, "15-1142",162, 662, "11-2021", 520, 164,
"29-2031", 339, 619, "25-2011", 263, 564, "41-4011", 551, 301, "29-2055", 76, 549, "29-2052", 285, 640, "13-2072", 370, 542,
"35-2012", 512, 547, "11-2022", 130, 154, "15-1132", 188, 274, "13-2052", 338, 587, "15-1199", 455, 5, "35-9031", 595, 472,
"17-2051", 648, 481, "11-9199", 430, 189, "39-3091", 29, 396, "47-2152", 412, 342, "29-1122", 582, 20, "11-9141", 276, 4,
"25-2021", 666, 617, "15-1134", 236, 334, "37-1011", 407, 664, "29-1063", 260, 278, "49-3031", 161, 354, "41-9022", 185, 144,
"41-9041", 551, 628, "25-2031", 529, 505, "29-2071", 548, 296, "29-1127", 373, 124, "21-1023", 473, 71, "29-1067", 489, 569,
"29-1071", 539, 277, "11-3121", 390, 348, "11-9021", 634, 20, "53-3041", 589, 258, "49-3021", 47, 206;
L = Length[mockdataWithNAICS];
counter = Range[L];
counter = Range[L];
mock2Dvalues = mockdataWithNAICS[[#]][[2]], mockdataWithNAICS[[#]][[3]] & /@ counter
The following measurements are necessary to build a grid :
minx = Round[Min[Table[mock2Dvalues[[i]][[1]], i, 1, L]]];
maxx = Round[Max[Table[mock2Dvalues[[i]][[1]], i, 1, L]]];
dx = Round[Subdivide[minx, maxx, 3]];
miny = Round[Min[Table[mock2Dvalues[[i]][[2]], i, 1, L]]];
maxy = Round[Max[Table[mock2Dvalues[[i]][[2]], i, 1, L]]];
dy = Round[Subdivide[miny, maxy, 3]];
gridpts = Tuples[dx, dy];
The following plot will allow you to visualize the grid and all the data points :
plt1 = ListPlot[gridpts, Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy, Epilog :> Blue, Point[mock2Dvalues]]
The purpose of the following plot is to allow you to display the grid
points with the aid of Tooltip to define the following nine regions :
plt2 = ListPlot[Tooltip[gridpts], Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy]
Here we define the nine cluster regions. We assign colors to the region names as a "mnemonic device" to associate the 2-D points with the regions that they belong-to, according to color. The colors are arbitrary :
magentaregion = Rectangle[gridpts[[1]], gridpts[[6]]]
orangeregion = Rectangle[gridpts[[5]], gridpts[[10]]]
cyanregion = Rectangle[gridpts[[9]], gridpts[[14]]]
redregion = Rectangle[gridpts[[2]], gridpts[[7]]]
blueregion = Rectangle[gridpts[[6]], gridpts[[11]]]
greenregion = Rectangle[gridpts[[10]], gridpts[[15]]]
lightgrayregion = Rectangle[gridpts[[3]], gridpts[[8]]]
yellowregion = Rectangle[gridpts[[7]], gridpts[[12]]]
blackregion = Rectangle[gridpts[[11]], gridpts[[16]]]
Here we disburse the points according to the regions where they belong to :
magentapts = Select[mock2Dvalues, # [Element] magentaregion &]
orangepts = Select[mock2Dvalues, # [Element] orangeregion &]
cyanpts = Select[mock2Dvalues, # [Element] cyanregion &]
redpts = Select[mock2Dvalues, # [Element] redregion &]
bluepts = Select[mock2Dvalues, # [Element] blueregion &]
greenpts = Select[mock2Dvalues, # [Element] greenregion &]
lightgraypts = Select[mock2Dvalues, # [Element] lightgrayregion &]
yellowpts = Select[mock2Dvalues, # [Element] yellowregion &]
blackpts = Select[mock2Dvalues, # [Element] blackregion &]
The following plots are necessary to build the final chart below :
plt3 = ListPlot[magentapts, Frame -> True, PlotStyle -> Magenta,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt4 = ListPlot[orangepts, Frame -> True, PlotStyle -> Orange,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt5 = ListPlot[cyanpts, Frame -> True, PlotStyle -> Cyan,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt6 = ListPlot[redpts, Frame -> True, PlotStyle -> Red,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt7 = ListPlot[bluepts, Frame -> True, PlotStyle -> Blue,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt8 = ListPlot[greenpts, Frame -> True, PlotStyle -> Green,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt9 = ListPlot[lightgraypts, Frame -> True, PlotStyle -> LightGray,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt10 = ListPlot[yellowpts, Frame -> True, PlotStyle -> Yellow,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt11 = ListPlot[blackpts, Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
This plot shows the nine-region cluster chart with the points colored by the region that they belong to :
finalchart = Show[plt3, plt4, plt5, plt6, plt7, plt8, plt9, plt10, plt11]
Finally; we establish an association between the NAICS codes and their 2 - D points as follows:
mockdataWithNAICSlabels =
Association[#[[1]] -> #[[2 ;; 3]] & /@ mockdataWithNAICS];
Dataset[mockdataWithNAICSlabels]
My question is: How can I associate the NAICS codes to their respective points BY COLORED REGION, so that if I use Tooltip; the NAICS codes will be displayed for each point in the above finalchart? Thank you!
plotting cluster-analysis
edited 1 hour ago
J. M. will be back soon♦
101k10 gold badges317 silver badges477 bronze badges
asked 10 hours ago
Gilmar Rodriguez PierluissiGilmar Rodriguez Pierluissi
7294 silver badges14 bronze badges
$endgroup$
add a comment
|
3
$begingroup$
I'm attempting to build a nine-region cluster chart using Tooltip to display labels associated with 2-D points also displayed on it. I do NOT want to use "FindClusters". I want to design my own cluster chart as explained below. The following mock data is made-up of 2-D points where each points have a label-identifier called a "NAICS" code (NAICS stands for "North American Industry
Classification System").
mockdataWithNAICS = "29-1141", 186, 112, "41-2031", 123, 92, "41-1011", 65, 404, "43-4051", 108, 646, "31-1014", 643, 246,
"49-9071", 356, 363, "43-1011", 543, 381, "43-5081", 268, 674, "53-3032", 416, 653, "37-3011", 514, 428, "37-2012", 501, 58,
"33-9032", 441, 598, "35-2014", 633, 138, "29-2061", 414, 590, "53-3033", 98, 155, "35-3031", 179, 431, "49-3023", 93, 623,
"35-3021", 37, 578, "41-2011", 256, 237, "37-2011", 302, 50, "47-1011", 518, 2, "11-9111", 313, 294, "31-9092", 698, 136,
"43-3031", 608, 610, "43-6013", 562, 515, "13-2011", 415, 327, "21-1093", 191, 72, "41-4012", 212, 92, "41-3031", 546, 418,
"31-1011", 591, 49, "47-2031", 405, 526, "41-3021", 191, 297, "15-1151", 442, 445, "43-6011", 118, 185, "49-1011", 472, 402,
"53-7062", 348, 552, "43-4171", 409, 396, "43-6014", 348, 247, "53-1031", 629, 59, "47-2061", 589, 534, "27-1026", 22, 377,
"29-1069", 445, 74, "49-9021", 647, 539, "43-9061", 25, 543, "11-1021", 19, 165, "41-1012", 482, 199, "29-1062", 1, 68,
"43-4081", 217, 112, "41-3099", 663, 66, "11-3031", 329, 392, "53-7061", 357, 515, "35-2021", 488, 245, "31-9091", 318, 679,
"51-1011", 650, 349, "11-9051", 38, 145, "53-3031", 166, 691, "39-9021", 561, 127, "39-5012", 665, 362, "47-2111", 397, 532,
"43-3071", 326, 271, "29-2034", 361, 450, "35-9011", 12, 366, "29-1123", 16, 211, "15-1142",162, 662, "11-2021", 520, 164,
"29-2031", 339, 619, "25-2011", 263, 564, "41-4011", 551, 301, "29-2055", 76, 549, "29-2052", 285, 640, "13-2072", 370, 542,
"35-2012", 512, 547, "11-2022", 130, 154, "15-1132", 188, 274, "13-2052", 338, 587, "15-1199", 455, 5, "35-9031", 595, 472,
"17-2051", 648, 481, "11-9199", 430, 189, "39-3091", 29, 396, "47-2152", 412, 342, "29-1122", 582, 20, "11-9141", 276, 4,
"25-2021", 666, 617, "15-1134", 236, 334, "37-1011", 407, 664, "29-1063", 260, 278, "49-3031", 161, 354, "41-9022", 185, 144,
"41-9041", 551, 628, "25-2031", 529, 505, "29-2071", 548, 296, "29-1127", 373, 124, "21-1023", 473, 71, "29-1067", 489, 569,
"29-1071", 539, 277, "11-3121", 390, 348, "11-9021", 634, 20, "53-3041", 589, 258, "49-3021", 47, 206;
L = Length[mockdataWithNAICS];
counter = Range[L];
counter = Range[L];
mock2Dvalues = mockdataWithNAICS[[#]][[2]], mockdataWithNAICS[[#]][[3]] & /@ counter
The following measurements are necessary to build a grid :
minx = Round[Min[Table[mock2Dvalues[[i]][[1]], i, 1, L]]];
maxx = Round[Max[Table[mock2Dvalues[[i]][[1]], i, 1, L]]];
dx = Round[Subdivide[minx, maxx, 3]];
miny = Round[Min[Table[mock2Dvalues[[i]][[2]], i, 1, L]]];
maxy = Round[Max[Table[mock2Dvalues[[i]][[2]], i, 1, L]]];
dy = Round[Subdivide[miny, maxy, 3]];
gridpts = Tuples[dx, dy];
The following plot will allow you to visualize the grid and all the data points :
plt1 = ListPlot[gridpts, Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy, Epilog :> Blue, Point[mock2Dvalues]]
The purpose of the following plot is to allow you to display the grid
points with the aid of Tooltip to define the following nine regions :
plt2 = ListPlot[Tooltip[gridpts], Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy]
Here we define the nine cluster regions. We assign colors to the region names as a "mnemonic device" to associate the 2-D points with the regions that they belong-to, according to color. The colors are arbitrary :
magentaregion = Rectangle[gridpts[[1]], gridpts[[6]]]
orangeregion = Rectangle[gridpts[[5]], gridpts[[10]]]
cyanregion = Rectangle[gridpts[[9]], gridpts[[14]]]
redregion = Rectangle[gridpts[[2]], gridpts[[7]]]
blueregion = Rectangle[gridpts[[6]], gridpts[[11]]]
greenregion = Rectangle[gridpts[[10]], gridpts[[15]]]
lightgrayregion = Rectangle[gridpts[[3]], gridpts[[8]]]
yellowregion = Rectangle[gridpts[[7]], gridpts[[12]]]
blackregion = Rectangle[gridpts[[11]], gridpts[[16]]]
Here we disburse the points according to the regions where they belong to :
magentapts = Select[mock2Dvalues, # [Element] magentaregion &]
orangepts = Select[mock2Dvalues, # [Element] orangeregion &]
cyanpts = Select[mock2Dvalues, # [Element] cyanregion &]
redpts = Select[mock2Dvalues, # [Element] redregion &]
bluepts = Select[mock2Dvalues, # [Element] blueregion &]
greenpts = Select[mock2Dvalues, # [Element] greenregion &]
lightgraypts = Select[mock2Dvalues, # [Element] lightgrayregion &]
yellowpts = Select[mock2Dvalues, # [Element] yellowregion &]
blackpts = Select[mock2Dvalues, # [Element] blackregion &]
The following plots are necessary to build the final chart below :
plt3 = ListPlot[magentapts, Frame -> True, PlotStyle -> Magenta,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt4 = ListPlot[orangepts, Frame -> True, PlotStyle -> Orange,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt5 = ListPlot[cyanpts, Frame -> True, PlotStyle -> Cyan,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt6 = ListPlot[redpts, Frame -> True, PlotStyle -> Red,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt7 = ListPlot[bluepts, Frame -> True, PlotStyle -> Blue,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt8 = ListPlot[greenpts, Frame -> True, PlotStyle -> Green,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt9 = ListPlot[lightgraypts, Frame -> True, PlotStyle -> LightGray,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt10 = ListPlot[yellowpts, Frame -> True, PlotStyle -> Yellow,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt11 = ListPlot[blackpts, Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
This plot shows the nine-region cluster chart with the points colored by the region that they belong to :
finalchart = Show[plt3, plt4, plt5, plt6, plt7, plt8, plt9, plt10, plt11]
Finally; we establish an association between the NAICS codes and their 2 - D points as follows:
mockdataWithNAICSlabels =
Association[#[[1]] -> #[[2 ;; 3]] & /@ mockdataWithNAICS];
Dataset[mockdataWithNAICSlabels]
My question is: How can I associate the NAICS codes to their respective points BY COLORED REGION, so that if I use Tooltip; the NAICS codes will be displayed for each point in the above finalchart? Thank you!
plotting cluster-analysis
edited 1 hour ago
J. M. will be back soon♦
101k10 gold badges317 silver badges477 bronze badges
asked 10 hours ago
Gilmar Rodriguez PierluissiGilmar Rodriguez Pierluissi
7294 silver badges14 bronze badges
$endgroup$
$begingroup$
Gilmar, a gentle reminder (if I may) re the comments following this post of yours re your previous questions
$endgroup$
– kglr
10 hours ago
$begingroup$
Dear Carl @kglr: I read your answer at the time and accepted your answer. I'm not sure what you are trying to tell me? That was a different topic (and post) altogether. Please, elaborate if you must.
$endgroup$
– Gilmar Rodriguez Pierluissi
10 hours ago
$begingroup$
@kglr How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
@Carl Lange How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
Thank you Gilmar. This is strange; you should be able accept/unaccept anytime. Perhaps this calls for developer/moderator attention to fix whatever is wrong with the pages you are seeing.
$endgroup$
– kglr
8 hours ago
add a comment
|
3
3
3
$begingroup$
I'm attempting to build a nine-region cluster chart using Tooltip to display labels associated with 2-D points also displayed on it. I do NOT want to use "FindClusters". I want to design my own cluster chart as explained below. The following mock data is made-up of 2-D points where each points have a label-identifier called a "NAICS" code (NAICS stands for "North American Industry
Classification System").
mockdataWithNAICS = "29-1141", 186, 112, "41-2031", 123, 92, "41-1011", 65, 404, "43-4051", 108, 646, "31-1014", 643, 246,
"49-9071", 356, 363, "43-1011", 543, 381, "43-5081", 268, 674, "53-3032", 416, 653, "37-3011", 514, 428, "37-2012", 501, 58,
"33-9032", 441, 598, "35-2014", 633, 138, "29-2061", 414, 590, "53-3033", 98, 155, "35-3031", 179, 431, "49-3023", 93, 623,
"35-3021", 37, 578, "41-2011", 256, 237, "37-2011", 302, 50, "47-1011", 518, 2, "11-9111", 313, 294, "31-9092", 698, 136,
"43-3031", 608, 610, "43-6013", 562, 515, "13-2011", 415, 327, "21-1093", 191, 72, "41-4012", 212, 92, "41-3031", 546, 418,
"31-1011", 591, 49, "47-2031", 405, 526, "41-3021", 191, 297, "15-1151", 442, 445, "43-6011", 118, 185, "49-1011", 472, 402,
"53-7062", 348, 552, "43-4171", 409, 396, "43-6014", 348, 247, "53-1031", 629, 59, "47-2061", 589, 534, "27-1026", 22, 377,
"29-1069", 445, 74, "49-9021", 647, 539, "43-9061", 25, 543, "11-1021", 19, 165, "41-1012", 482, 199, "29-1062", 1, 68,
"43-4081", 217, 112, "41-3099", 663, 66, "11-3031", 329, 392, "53-7061", 357, 515, "35-2021", 488, 245, "31-9091", 318, 679,
"51-1011", 650, 349, "11-9051", 38, 145, "53-3031", 166, 691, "39-9021", 561, 127, "39-5012", 665, 362, "47-2111", 397, 532,
"43-3071", 326, 271, "29-2034", 361, 450, "35-9011", 12, 366, "29-1123", 16, 211, "15-1142",162, 662, "11-2021", 520, 164,
"29-2031", 339, 619, "25-2011", 263, 564, "41-4011", 551, 301, "29-2055", 76, 549, "29-2052", 285, 640, "13-2072", 370, 542,
"35-2012", 512, 547, "11-2022", 130, 154, "15-1132", 188, 274, "13-2052", 338, 587, "15-1199", 455, 5, "35-9031", 595, 472,
"17-2051", 648, 481, "11-9199", 430, 189, "39-3091", 29, 396, "47-2152", 412, 342, "29-1122", 582, 20, "11-9141", 276, 4,
"25-2021", 666, 617, "15-1134", 236, 334, "37-1011", 407, 664, "29-1063", 260, 278, "49-3031", 161, 354, "41-9022", 185, 144,
"41-9041", 551, 628, "25-2031", 529, 505, "29-2071", 548, 296, "29-1127", 373, 124, "21-1023", 473, 71, "29-1067", 489, 569,
"29-1071", 539, 277, "11-3121", 390, 348, "11-9021", 634, 20, "53-3041", 589, 258, "49-3021", 47, 206;
L = Length[mockdataWithNAICS];
counter = Range[L];
counter = Range[L];
mock2Dvalues = mockdataWithNAICS[[#]][[2]], mockdataWithNAICS[[#]][[3]] & /@ counter
The following measurements are necessary to build a grid :
minx = Round[Min[Table[mock2Dvalues[[i]][[1]], i, 1, L]]];
maxx = Round[Max[Table[mock2Dvalues[[i]][[1]], i, 1, L]]];
dx = Round[Subdivide[minx, maxx, 3]];
miny = Round[Min[Table[mock2Dvalues[[i]][[2]], i, 1, L]]];
maxy = Round[Max[Table[mock2Dvalues[[i]][[2]], i, 1, L]]];
dy = Round[Subdivide[miny, maxy, 3]];
gridpts = Tuples[dx, dy];
The following plot will allow you to visualize the grid and all the data points :
plt1 = ListPlot[gridpts, Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy, Epilog :> Blue, Point[mock2Dvalues]]
The purpose of the following plot is to allow you to display the grid
points with the aid of Tooltip to define the following nine regions :
plt2 = ListPlot[Tooltip[gridpts], Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy]
Here we define the nine cluster regions. We assign colors to the region names as a "mnemonic device" to associate the 2-D points with the regions that they belong-to, according to color. The colors are arbitrary :
magentaregion = Rectangle[gridpts[[1]], gridpts[[6]]]
orangeregion = Rectangle[gridpts[[5]], gridpts[[10]]]
cyanregion = Rectangle[gridpts[[9]], gridpts[[14]]]
redregion = Rectangle[gridpts[[2]], gridpts[[7]]]
blueregion = Rectangle[gridpts[[6]], gridpts[[11]]]
greenregion = Rectangle[gridpts[[10]], gridpts[[15]]]
lightgrayregion = Rectangle[gridpts[[3]], gridpts[[8]]]
yellowregion = Rectangle[gridpts[[7]], gridpts[[12]]]
blackregion = Rectangle[gridpts[[11]], gridpts[[16]]]
Here we disburse the points according to the regions where they belong to :
magentapts = Select[mock2Dvalues, # [Element] magentaregion &]
orangepts = Select[mock2Dvalues, # [Element] orangeregion &]
cyanpts = Select[mock2Dvalues, # [Element] cyanregion &]
redpts = Select[mock2Dvalues, # [Element] redregion &]
bluepts = Select[mock2Dvalues, # [Element] blueregion &]
greenpts = Select[mock2Dvalues, # [Element] greenregion &]
lightgraypts = Select[mock2Dvalues, # [Element] lightgrayregion &]
yellowpts = Select[mock2Dvalues, # [Element] yellowregion &]
blackpts = Select[mock2Dvalues, # [Element] blackregion &]
The following plots are necessary to build the final chart below :
plt3 = ListPlot[magentapts, Frame -> True, PlotStyle -> Magenta,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt4 = ListPlot[orangepts, Frame -> True, PlotStyle -> Orange,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt5 = ListPlot[cyanpts, Frame -> True, PlotStyle -> Cyan,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt6 = ListPlot[redpts, Frame -> True, PlotStyle -> Red,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt7 = ListPlot[bluepts, Frame -> True, PlotStyle -> Blue,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt8 = ListPlot[greenpts, Frame -> True, PlotStyle -> Green,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt9 = ListPlot[lightgraypts, Frame -> True, PlotStyle -> LightGray,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt10 = ListPlot[yellowpts, Frame -> True, PlotStyle -> Yellow,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt11 = ListPlot[blackpts, Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
This plot shows the nine-region cluster chart with the points colored by the region that they belong to :
finalchart = Show[plt3, plt4, plt5, plt6, plt7, plt8, plt9, plt10, plt11]
Finally; we establish an association between the NAICS codes and their 2 - D points as follows:
mockdataWithNAICSlabels =
Association[#[[1]] -> #[[2 ;; 3]] & /@ mockdataWithNAICS];
Dataset[mockdataWithNAICSlabels]
My question is: How can I associate the NAICS codes to their respective points BY COLORED REGION, so that if I use Tooltip; the NAICS codes will be displayed for each point in the above finalchart? Thank you!
plotting cluster-analysis
edited 1 hour ago
J. M. will be back soon♦
101k10 gold badges317 silver badges477 bronze badges
asked 10 hours ago
Gilmar Rodriguez PierluissiGilmar Rodriguez Pierluissi
7294 silver badges14 bronze badges
$endgroup$
I'm attempting to build a nine-region cluster chart using Tooltip to display labels associated with 2-D points also displayed on it. I do NOT want to use "FindClusters". I want to design my own cluster chart as explained below. The following mock data is made-up of 2-D points where each points have a label-identifier called a "NAICS" code (NAICS stands for "North American Industry
Classification System").
mockdataWithNAICS = "29-1141", 186, 112, "41-2031", 123, 92, "41-1011", 65, 404, "43-4051", 108, 646, "31-1014", 643, 246,
"49-9071", 356, 363, "43-1011", 543, 381, "43-5081", 268, 674, "53-3032", 416, 653, "37-3011", 514, 428, "37-2012", 501, 58,
"33-9032", 441, 598, "35-2014", 633, 138, "29-2061", 414, 590, "53-3033", 98, 155, "35-3031", 179, 431, "49-3023", 93, 623,
"35-3021", 37, 578, "41-2011", 256, 237, "37-2011", 302, 50, "47-1011", 518, 2, "11-9111", 313, 294, "31-9092", 698, 136,
"43-3031", 608, 610, "43-6013", 562, 515, "13-2011", 415, 327, "21-1093", 191, 72, "41-4012", 212, 92, "41-3031", 546, 418,
"31-1011", 591, 49, "47-2031", 405, 526, "41-3021", 191, 297, "15-1151", 442, 445, "43-6011", 118, 185, "49-1011", 472, 402,
"53-7062", 348, 552, "43-4171", 409, 396, "43-6014", 348, 247, "53-1031", 629, 59, "47-2061", 589, 534, "27-1026", 22, 377,
"29-1069", 445, 74, "49-9021", 647, 539, "43-9061", 25, 543, "11-1021", 19, 165, "41-1012", 482, 199, "29-1062", 1, 68,
"43-4081", 217, 112, "41-3099", 663, 66, "11-3031", 329, 392, "53-7061", 357, 515, "35-2021", 488, 245, "31-9091", 318, 679,
"51-1011", 650, 349, "11-9051", 38, 145, "53-3031", 166, 691, "39-9021", 561, 127, "39-5012", 665, 362, "47-2111", 397, 532,
"43-3071", 326, 271, "29-2034", 361, 450, "35-9011", 12, 366, "29-1123", 16, 211, "15-1142",162, 662, "11-2021", 520, 164,
"29-2031", 339, 619, "25-2011", 263, 564, "41-4011", 551, 301, "29-2055", 76, 549, "29-2052", 285, 640, "13-2072", 370, 542,
"35-2012", 512, 547, "11-2022", 130, 154, "15-1132", 188, 274, "13-2052", 338, 587, "15-1199", 455, 5, "35-9031", 595, 472,
"17-2051", 648, 481, "11-9199", 430, 189, "39-3091", 29, 396, "47-2152", 412, 342, "29-1122", 582, 20, "11-9141", 276, 4,
"25-2021", 666, 617, "15-1134", 236, 334, "37-1011", 407, 664, "29-1063", 260, 278, "49-3031", 161, 354, "41-9022", 185, 144,
"41-9041", 551, 628, "25-2031", 529, 505, "29-2071", 548, 296, "29-1127", 373, 124, "21-1023", 473, 71, "29-1067", 489, 569,
"29-1071", 539, 277, "11-3121", 390, 348, "11-9021", 634, 20, "53-3041", 589, 258, "49-3021", 47, 206;
L = Length[mockdataWithNAICS];
counter = Range[L];
counter = Range[L];
mock2Dvalues = mockdataWithNAICS[[#]][[2]], mockdataWithNAICS[[#]][[3]] & /@ counter
The following measurements are necessary to build a grid :
minx = Round[Min[Table[mock2Dvalues[[i]][[1]], i, 1, L]]];
maxx = Round[Max[Table[mock2Dvalues[[i]][[1]], i, 1, L]]];
dx = Round[Subdivide[minx, maxx, 3]];
miny = Round[Min[Table[mock2Dvalues[[i]][[2]], i, 1, L]]];
maxy = Round[Max[Table[mock2Dvalues[[i]][[2]], i, 1, L]]];
dy = Round[Subdivide[miny, maxy, 3]];
gridpts = Tuples[dx, dy];
The following plot will allow you to visualize the grid and all the data points :
plt1 = ListPlot[gridpts, Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy, Epilog :> Blue, Point[mock2Dvalues]]
The purpose of the following plot is to allow you to display the grid
points with the aid of Tooltip to define the following nine regions :
plt2 = ListPlot[Tooltip[gridpts], Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy]
Here we define the nine cluster regions. We assign colors to the region names as a "mnemonic device" to associate the 2-D points with the regions that they belong-to, according to color. The colors are arbitrary :
magentaregion = Rectangle[gridpts[[1]], gridpts[[6]]]
orangeregion = Rectangle[gridpts[[5]], gridpts[[10]]]
cyanregion = Rectangle[gridpts[[9]], gridpts[[14]]]
redregion = Rectangle[gridpts[[2]], gridpts[[7]]]
blueregion = Rectangle[gridpts[[6]], gridpts[[11]]]
greenregion = Rectangle[gridpts[[10]], gridpts[[15]]]
lightgrayregion = Rectangle[gridpts[[3]], gridpts[[8]]]
yellowregion = Rectangle[gridpts[[7]], gridpts[[12]]]
blackregion = Rectangle[gridpts[[11]], gridpts[[16]]]
Here we disburse the points according to the regions where they belong to :
magentapts = Select[mock2Dvalues, # [Element] magentaregion &]
orangepts = Select[mock2Dvalues, # [Element] orangeregion &]
cyanpts = Select[mock2Dvalues, # [Element] cyanregion &]
redpts = Select[mock2Dvalues, # [Element] redregion &]
bluepts = Select[mock2Dvalues, # [Element] blueregion &]
greenpts = Select[mock2Dvalues, # [Element] greenregion &]
lightgraypts = Select[mock2Dvalues, # [Element] lightgrayregion &]
yellowpts = Select[mock2Dvalues, # [Element] yellowregion &]
blackpts = Select[mock2Dvalues, # [Element] blackregion &]
The following plots are necessary to build the final chart below :
plt3 = ListPlot[magentapts, Frame -> True, PlotStyle -> Magenta,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt4 = ListPlot[orangepts, Frame -> True, PlotStyle -> Orange,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt5 = ListPlot[cyanpts, Frame -> True, PlotStyle -> Cyan,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt6 = ListPlot[redpts, Frame -> True, PlotStyle -> Red,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt7 = ListPlot[bluepts, Frame -> True, PlotStyle -> Blue,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt8 = ListPlot[greenpts, Frame -> True, PlotStyle -> Green,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt9 = ListPlot[lightgraypts, Frame -> True, PlotStyle -> LightGray,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt10 = ListPlot[yellowpts, Frame -> True, PlotStyle -> Yellow,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
plt11 = ListPlot[blackpts, Frame -> True, PlotStyle -> Black,
GridLines -> dx, dy, PlotRange -> minx, maxx, miny, maxy,
AspectRatio -> 1];
This plot shows the nine-region cluster chart with the points colored by the region that they belong to :
finalchart = Show[plt3, plt4, plt5, plt6, plt7, plt8, plt9, plt10, plt11]
Finally; we establish an association between the NAICS codes and their 2 - D points as follows:
mockdataWithNAICSlabels =
Association[#[[1]] -> #[[2 ;; 3]] & /@ mockdataWithNAICS];
Dataset[mockdataWithNAICSlabels]
My question is: How can I associate the NAICS codes to their respective points BY COLORED REGION, so that if I use Tooltip; the NAICS codes will be displayed for each point in the above finalchart? Thank you!
plotting cluster-analysis
plotting cluster-analysis
edited 1 hour ago
J. M. will be back soon♦
101k10 gold badges317 silver badges477 bronze badges
asked 10 hours ago
Gilmar Rodriguez PierluissiGilmar Rodriguez Pierluissi
7294 silver badges14 bronze badges
edited 1 hour ago
J. M. will be back soon♦
101k10 gold badges317 silver badges477 bronze badges
asked 10 hours ago
Gilmar Rodriguez PierluissiGilmar Rodriguez Pierluissi
7294 silver badges14 bronze badges
edited 1 hour ago
J. M. will be back soon♦
101k10 gold badges317 silver badges477 bronze badges
edited 1 hour ago
J. M. will be back soon♦
101k10 gold badges317 silver badges477 bronze badges
edited 1 hour ago
J. M. will be back soon♦
101k10 gold badges317 silver badges477 bronze badges
101k10 gold badges317 silver badges477 bronze badges
asked 10 hours ago
Gilmar Rodriguez PierluissiGilmar Rodriguez Pierluissi
7294 silver badges14 bronze badges
asked 10 hours ago
Gilmar Rodriguez PierluissiGilmar Rodriguez Pierluissi
7294 silver badges14 bronze badges
asked 10 hours ago
Gilmar Rodriguez PierluissiGilmar Rodriguez Pierluissi
7294 silver badges14 bronze badges
7294 silver badges14 bronze badges
$begingroup$
Gilmar, a gentle reminder (if I may) re the comments following this post of yours re your previous questions
$endgroup$
– kglr
10 hours ago
$begingroup$
Dear Carl @kglr: I read your answer at the time and accepted your answer. I'm not sure what you are trying to tell me? That was a different topic (and post) altogether. Please, elaborate if you must.
$endgroup$
– Gilmar Rodriguez Pierluissi
10 hours ago
$begingroup$
@kglr How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
@Carl Lange How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
Thank you Gilmar. This is strange; you should be able accept/unaccept anytime. Perhaps this calls for developer/moderator attention to fix whatever is wrong with the pages you are seeing.
$endgroup$
– kglr
8 hours ago
add a comment
|
$begingroup$
Gilmar, a gentle reminder (if I may) re the comments following this post of yours re your previous questions
$endgroup$
– kglr
10 hours ago
$begingroup$
Dear Carl @kglr: I read your answer at the time and accepted your answer. I'm not sure what you are trying to tell me? That was a different topic (and post) altogether. Please, elaborate if you must.
$endgroup$
– Gilmar Rodriguez Pierluissi
10 hours ago
$begingroup$
@kglr How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
@Carl Lange How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
Thank you Gilmar. This is strange; you should be able accept/unaccept anytime. Perhaps this calls for developer/moderator attention to fix whatever is wrong with the pages you are seeing.
$endgroup$
– kglr
8 hours ago
$begingroup$
Gilmar, a gentle reminder (if I may) re the comments following this post of yours re your previous questions
$endgroup$
– kglr
10 hours ago
$begingroup$
Gilmar, a gentle reminder (if I may) re the comments following this post of yours re your previous questions
$endgroup$
– kglr
10 hours ago
$begingroup$
Dear Carl @kglr: I read your answer at the time and accepted your answer. I'm not sure what you are trying to tell me? That was a different topic (and post) altogether. Please, elaborate if you must.
$endgroup$
– Gilmar Rodriguez Pierluissi
10 hours ago
$begingroup$
Dear Carl @kglr: I read your answer at the time and accepted your answer. I'm not sure what you are trying to tell me? That was a different topic (and post) altogether. Please, elaborate if you must.
$endgroup$
– Gilmar Rodriguez Pierluissi
10 hours ago
$begingroup$
@kglr How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
@kglr How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
@Carl Lange How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
@Carl Lange How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
Thank you Gilmar. This is strange; you should be able accept/unaccept anytime. Perhaps this calls for developer/moderator attention to fix whatever is wrong with the pages you are seeing.
$endgroup$
– kglr
8 hours ago
$begingroup$
Thank you Gilmar. This is strange; you should be able accept/unaccept anytime. Perhaps this calls for developer/moderator attention to fix whatever is wrong with the pages you are seeing.
$endgroup$
– kglr
8 hours ago
add a comment
|
2 Answers
2
active
oldest
votes
4
$begingroup$
I believe this has the intended functionality, with simplified code.
minx = Round[Min[mockdataWithNAICS[[All, 2]]]];
maxx = Round[Max[mockdataWithNAICS[[All, 2]]]];
dx = Round[Subdivide[minx, maxx, 3]];
miny = Round[Min[mockdataWithNAICS[[All, 3]]]];
maxy = Round[Max[mockdataWithNAICS[[All, 3]]]];
dy = Round[Subdivide[miny, maxy, 3]];
gridpts = Tuples[dx, dy];
regions =
Rectangle[gridpts[[1]], gridpts[[6]]],
Rectangle[gridpts[[5]], gridpts[[10]]],
Rectangle[gridpts[[9]], gridpts[[14]]],
Rectangle[gridpts[[2]], gridpts[[7]]],
Rectangle[gridpts[[6]], gridpts[[11]]],
Rectangle[gridpts[[10]], gridpts[[15]]],
Rectangle[gridpts[[3]], gridpts[[8]]],
Rectangle[gridpts[[7]], gridpts[[12]]],
Rectangle[gridpts[[11]], gridpts[[16]]];
pts = Table[
Select[mockdataWithNAICS, #[[2, 3]] [Element] r &], r, regions];
colors = Magenta, Orange, Cyan, Red, Blue, Green, LightGray, Yellow,
Black;
ListPlot[Table[Tooltip[#[[2, 3]], #[[1]]] & /@ p, p, pts],
Frame -> True, PlotStyle -> colors, GridLines -> dx, dy,
PlotRange -> minx, maxx, miny, maxy, AspectRatio -> 1]
answered 8 hours ago
MelaGoMelaGo
2,9111 gold badge2 silver badges8 bronze badges
$endgroup$
add a comment
|
2
$begingroup$
colors = Magenta, Orange, Cyan, Red, Blue, Green, LightGray, Yellow, Black;
tooltips = ##2 -> Tooltip[##2, #] & @@@ mockdataWithNAICS;
dx, dy = Round[Subdivide[##, 3]] & @@@ (Round[MinMax@#] & /@
Transpose[mockdataWithNAICS[[All, 2, 3]]]);
You can use BinLists with dx and dy as horizontal and vertical bin delimiters to group the data into bins:
binlists = Join @@ BinLists[mockdataWithNAICS[[All, 2, 3]], dx, dy];
and use a single ListPlot to plot all groups:
ListPlot[binlists /. tooltips,
Frame -> True,
PlotStyle -> colors,
GridLines -> dx, dy,
BaseStyle -> PointSize[Large],
Axes -> False,
AspectRatio -> 1,
PlotRange -> -10, 710, -10, 710]
With a minor modification in tooltips, you can also use BubbleChart
tooltips2 = ##2 -> Tooltip[##2, 1, #] & @@@ mockdataWithNAICS;
BubbleChart[binlists /. tooltips2,
Frame -> True,
ChartStyle -> colors,
GridLines -> dx, dy,
Axes -> False,
BubbleSizes -> .02, .02,
PlotRange -> -10, 710, -10, 710]
answered 5 hours ago
kglrkglr
218k10 gold badges248 silver badges499 bronze badges
$endgroup$
add a comment
|
Your Answer
StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);
else
createEditor();
);
function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/4.0/"u003ecc by-sa 4.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);
);
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f206572%2fbuilding-a-nine-region-cluster-chart-with-tooltip-to-display-labels-associated%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
2 Answers
2
active
oldest
votes
2 Answers
2
active
oldest
votes
active
oldest
votes
active
oldest
votes
4
$begingroup$
I believe this has the intended functionality, with simplified code.
minx = Round[Min[mockdataWithNAICS[[All, 2]]]];
maxx = Round[Max[mockdataWithNAICS[[All, 2]]]];
dx = Round[Subdivide[minx, maxx, 3]];
miny = Round[Min[mockdataWithNAICS[[All, 3]]]];
maxy = Round[Max[mockdataWithNAICS[[All, 3]]]];
dy = Round[Subdivide[miny, maxy, 3]];
gridpts = Tuples[dx, dy];
regions =
Rectangle[gridpts[[1]], gridpts[[6]]],
Rectangle[gridpts[[5]], gridpts[[10]]],
Rectangle[gridpts[[9]], gridpts[[14]]],
Rectangle[gridpts[[2]], gridpts[[7]]],
Rectangle[gridpts[[6]], gridpts[[11]]],
Rectangle[gridpts[[10]], gridpts[[15]]],
Rectangle[gridpts[[3]], gridpts[[8]]],
Rectangle[gridpts[[7]], gridpts[[12]]],
Rectangle[gridpts[[11]], gridpts[[16]]];
pts = Table[
Select[mockdataWithNAICS, #[[2, 3]] [Element] r &], r, regions];
colors = Magenta, Orange, Cyan, Red, Blue, Green, LightGray, Yellow,
Black;
ListPlot[Table[Tooltip[#[[2, 3]], #[[1]]] & /@ p, p, pts],
Frame -> True, PlotStyle -> colors, GridLines -> dx, dy,
PlotRange -> minx, maxx, miny, maxy, AspectRatio -> 1]
answered 8 hours ago
MelaGoMelaGo
2,9111 gold badge2 silver badges8 bronze badges
$endgroup$
add a comment
|
4
$begingroup$
I believe this has the intended functionality, with simplified code.
minx = Round[Min[mockdataWithNAICS[[All, 2]]]];
maxx = Round[Max[mockdataWithNAICS[[All, 2]]]];
dx = Round[Subdivide[minx, maxx, 3]];
miny = Round[Min[mockdataWithNAICS[[All, 3]]]];
maxy = Round[Max[mockdataWithNAICS[[All, 3]]]];
dy = Round[Subdivide[miny, maxy, 3]];
gridpts = Tuples[dx, dy];
regions =
Rectangle[gridpts[[1]], gridpts[[6]]],
Rectangle[gridpts[[5]], gridpts[[10]]],
Rectangle[gridpts[[9]], gridpts[[14]]],
Rectangle[gridpts[[2]], gridpts[[7]]],
Rectangle[gridpts[[6]], gridpts[[11]]],
Rectangle[gridpts[[10]], gridpts[[15]]],
Rectangle[gridpts[[3]], gridpts[[8]]],
Rectangle[gridpts[[7]], gridpts[[12]]],
Rectangle[gridpts[[11]], gridpts[[16]]];
pts = Table[
Select[mockdataWithNAICS, #[[2, 3]] [Element] r &], r, regions];
colors = Magenta, Orange, Cyan, Red, Blue, Green, LightGray, Yellow,
Black;
ListPlot[Table[Tooltip[#[[2, 3]], #[[1]]] & /@ p, p, pts],
Frame -> True, PlotStyle -> colors, GridLines -> dx, dy,
PlotRange -> minx, maxx, miny, maxy, AspectRatio -> 1]
answered 8 hours ago
MelaGoMelaGo
2,9111 gold badge2 silver badges8 bronze badges
$endgroup$
add a comment
|
4
4
4
$begingroup$
I believe this has the intended functionality, with simplified code.
minx = Round[Min[mockdataWithNAICS[[All, 2]]]];
maxx = Round[Max[mockdataWithNAICS[[All, 2]]]];
dx = Round[Subdivide[minx, maxx, 3]];
miny = Round[Min[mockdataWithNAICS[[All, 3]]]];
maxy = Round[Max[mockdataWithNAICS[[All, 3]]]];
dy = Round[Subdivide[miny, maxy, 3]];
gridpts = Tuples[dx, dy];
regions =
Rectangle[gridpts[[1]], gridpts[[6]]],
Rectangle[gridpts[[5]], gridpts[[10]]],
Rectangle[gridpts[[9]], gridpts[[14]]],
Rectangle[gridpts[[2]], gridpts[[7]]],
Rectangle[gridpts[[6]], gridpts[[11]]],
Rectangle[gridpts[[10]], gridpts[[15]]],
Rectangle[gridpts[[3]], gridpts[[8]]],
Rectangle[gridpts[[7]], gridpts[[12]]],
Rectangle[gridpts[[11]], gridpts[[16]]];
pts = Table[
Select[mockdataWithNAICS, #[[2, 3]] [Element] r &], r, regions];
colors = Magenta, Orange, Cyan, Red, Blue, Green, LightGray, Yellow,
Black;
ListPlot[Table[Tooltip[#[[2, 3]], #[[1]]] & /@ p, p, pts],
Frame -> True, PlotStyle -> colors, GridLines -> dx, dy,
PlotRange -> minx, maxx, miny, maxy, AspectRatio -> 1]
answered 8 hours ago
MelaGoMelaGo
2,9111 gold badge2 silver badges8 bronze badges
$endgroup$
I believe this has the intended functionality, with simplified code.
minx = Round[Min[mockdataWithNAICS[[All, 2]]]];
maxx = Round[Max[mockdataWithNAICS[[All, 2]]]];
dx = Round[Subdivide[minx, maxx, 3]];
miny = Round[Min[mockdataWithNAICS[[All, 3]]]];
maxy = Round[Max[mockdataWithNAICS[[All, 3]]]];
dy = Round[Subdivide[miny, maxy, 3]];
gridpts = Tuples[dx, dy];
regions =
Rectangle[gridpts[[1]], gridpts[[6]]],
Rectangle[gridpts[[5]], gridpts[[10]]],
Rectangle[gridpts[[9]], gridpts[[14]]],
Rectangle[gridpts[[2]], gridpts[[7]]],
Rectangle[gridpts[[6]], gridpts[[11]]],
Rectangle[gridpts[[10]], gridpts[[15]]],
Rectangle[gridpts[[3]], gridpts[[8]]],
Rectangle[gridpts[[7]], gridpts[[12]]],
Rectangle[gridpts[[11]], gridpts[[16]]];
pts = Table[
Select[mockdataWithNAICS, #[[2, 3]] [Element] r &], r, regions];
colors = Magenta, Orange, Cyan, Red, Blue, Green, LightGray, Yellow,
Black;
ListPlot[Table[Tooltip[#[[2, 3]], #[[1]]] & /@ p, p, pts],
Frame -> True, PlotStyle -> colors, GridLines -> dx, dy,
PlotRange -> minx, maxx, miny, maxy, AspectRatio -> 1]
answered 8 hours ago
MelaGoMelaGo
2,9111 gold badge2 silver badges8 bronze badges
edited 7 hours ago
answered 8 hours ago
MelaGoMelaGo
2,9111 gold badge2 silver badges8 bronze badges
answered 8 hours ago
MelaGoMelaGo
2,9111 gold badge2 silver badges8 bronze badges
answered 8 hours ago
MelaGoMelaGo
2,9111 gold badge2 silver badges8 bronze badges
2,9111 gold badge2 silver badges8 bronze badges
add a comment
|
add a comment
|
2
$begingroup$
colors = Magenta, Orange, Cyan, Red, Blue, Green, LightGray, Yellow, Black;
tooltips = ##2 -> Tooltip[##2, #] & @@@ mockdataWithNAICS;
dx, dy = Round[Subdivide[##, 3]] & @@@ (Round[MinMax@#] & /@
Transpose[mockdataWithNAICS[[All, 2, 3]]]);
You can use BinLists with dx and dy as horizontal and vertical bin delimiters to group the data into bins:
binlists = Join @@ BinLists[mockdataWithNAICS[[All, 2, 3]], dx, dy];
and use a single ListPlot to plot all groups:
ListPlot[binlists /. tooltips,
Frame -> True,
PlotStyle -> colors,
GridLines -> dx, dy,
BaseStyle -> PointSize[Large],
Axes -> False,
AspectRatio -> 1,
PlotRange -> -10, 710, -10, 710]
With a minor modification in tooltips, you can also use BubbleChart
tooltips2 = ##2 -> Tooltip[##2, 1, #] & @@@ mockdataWithNAICS;
BubbleChart[binlists /. tooltips2,
Frame -> True,
ChartStyle -> colors,
GridLines -> dx, dy,
Axes -> False,
BubbleSizes -> .02, .02,
PlotRange -> -10, 710, -10, 710]
answered 5 hours ago
kglrkglr
218k10 gold badges248 silver badges499 bronze badges
$endgroup$
add a comment
|
2
$begingroup$
colors = Magenta, Orange, Cyan, Red, Blue, Green, LightGray, Yellow, Black;
tooltips = ##2 -> Tooltip[##2, #] & @@@ mockdataWithNAICS;
dx, dy = Round[Subdivide[##, 3]] & @@@ (Round[MinMax@#] & /@
Transpose[mockdataWithNAICS[[All, 2, 3]]]);
You can use BinLists with dx and dy as horizontal and vertical bin delimiters to group the data into bins:
binlists = Join @@ BinLists[mockdataWithNAICS[[All, 2, 3]], dx, dy];
and use a single ListPlot to plot all groups:
ListPlot[binlists /. tooltips,
Frame -> True,
PlotStyle -> colors,
GridLines -> dx, dy,
BaseStyle -> PointSize[Large],
Axes -> False,
AspectRatio -> 1,
PlotRange -> -10, 710, -10, 710]
With a minor modification in tooltips, you can also use BubbleChart
tooltips2 = ##2 -> Tooltip[##2, 1, #] & @@@ mockdataWithNAICS;
BubbleChart[binlists /. tooltips2,
Frame -> True,
ChartStyle -> colors,
GridLines -> dx, dy,
Axes -> False,
BubbleSizes -> .02, .02,
PlotRange -> -10, 710, -10, 710]
answered 5 hours ago
kglrkglr
218k10 gold badges248 silver badges499 bronze badges
$endgroup$
add a comment
|
2
2
2
$begingroup$
colors = Magenta, Orange, Cyan, Red, Blue, Green, LightGray, Yellow, Black;
tooltips = ##2 -> Tooltip[##2, #] & @@@ mockdataWithNAICS;
dx, dy = Round[Subdivide[##, 3]] & @@@ (Round[MinMax@#] & /@
Transpose[mockdataWithNAICS[[All, 2, 3]]]);
You can use BinLists with dx and dy as horizontal and vertical bin delimiters to group the data into bins:
binlists = Join @@ BinLists[mockdataWithNAICS[[All, 2, 3]], dx, dy];
and use a single ListPlot to plot all groups:
ListPlot[binlists /. tooltips,
Frame -> True,
PlotStyle -> colors,
GridLines -> dx, dy,
BaseStyle -> PointSize[Large],
Axes -> False,
AspectRatio -> 1,
PlotRange -> -10, 710, -10, 710]
With a minor modification in tooltips, you can also use BubbleChart
tooltips2 = ##2 -> Tooltip[##2, 1, #] & @@@ mockdataWithNAICS;
BubbleChart[binlists /. tooltips2,
Frame -> True,
ChartStyle -> colors,
GridLines -> dx, dy,
Axes -> False,
BubbleSizes -> .02, .02,
PlotRange -> -10, 710, -10, 710]
answered 5 hours ago
kglrkglr
218k10 gold badges248 silver badges499 bronze badges
$endgroup$
colors = Magenta, Orange, Cyan, Red, Blue, Green, LightGray, Yellow, Black;
tooltips = ##2 -> Tooltip[##2, #] & @@@ mockdataWithNAICS;
dx, dy = Round[Subdivide[##, 3]] & @@@ (Round[MinMax@#] & /@
Transpose[mockdataWithNAICS[[All, 2, 3]]]);
You can use BinLists with dx and dy as horizontal and vertical bin delimiters to group the data into bins:
binlists = Join @@ BinLists[mockdataWithNAICS[[All, 2, 3]], dx, dy];
and use a single ListPlot to plot all groups:
ListPlot[binlists /. tooltips,
Frame -> True,
PlotStyle -> colors,
GridLines -> dx, dy,
BaseStyle -> PointSize[Large],
Axes -> False,
AspectRatio -> 1,
PlotRange -> -10, 710, -10, 710]
With a minor modification in tooltips, you can also use BubbleChart
tooltips2 = ##2 -> Tooltip[##2, 1, #] & @@@ mockdataWithNAICS;
BubbleChart[binlists /. tooltips2,
Frame -> True,
ChartStyle -> colors,
GridLines -> dx, dy,
Axes -> False,
BubbleSizes -> .02, .02,
PlotRange -> -10, 710, -10, 710]
answered 5 hours ago
kglrkglr
218k10 gold badges248 silver badges499 bronze badges
edited 4 hours ago
answered 5 hours ago
kglrkglr
218k10 gold badges248 silver badges499 bronze badges
answered 5 hours ago
kglrkglr
218k10 gold badges248 silver badges499 bronze badges
answered 5 hours ago
kglrkglr
218k10 gold badges248 silver badges499 bronze badges
218k10 gold badges248 silver badges499 bronze badges
add a comment
|
add a comment
|
draft saved
draft discarded
Thanks for contributing an answer to Mathematica Stack Exchange!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
Use MathJax to format equations. MathJax reference.
To learn more, see our tips on writing great answers.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f206572%2fbuilding-a-nine-region-cluster-chart-with-tooltip-to-display-labels-associated%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
$begingroup$
Gilmar, a gentle reminder (if I may) re the comments following this post of yours re your previous questions
$endgroup$
– kglr
10 hours ago
$begingroup$
Dear Carl @kglr: I read your answer at the time and accepted your answer. I'm not sure what you are trying to tell me? That was a different topic (and post) altogether. Please, elaborate if you must.
$endgroup$
– Gilmar Rodriguez Pierluissi
10 hours ago
$begingroup$
@kglr How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
@Carl Lange How do I accept answers retro-actively? When I review my old posts there are no green check marks to be checked any more. As I made clear before; I learned about pressing the green check mark recently and I have done it ever since. I have NOT left the green check marks unchecked intentionally or with malice. Thank you.
$endgroup$
– Gilmar Rodriguez Pierluissi
9 hours ago
$begingroup$
Thank you Gilmar. This is strange; you should be able accept/unaccept anytime. Perhaps this calls for developer/moderator attention to fix whatever is wrong with the pages you are seeing.
$endgroup$
– kglr
8 hours ago