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
Is it really necessary to have a four hour meeting in Sprint planning?
Going to France with limited French for a day
Why does (inf + 0j)*1 evaluate to inf + nanj?
Why does NASA publish all the results/data it gets?
A food item only made possible by time-freezing storage?
Safe to use 220V electric clothes dryer when building has been bridged down to 110V?
Designing a time thief proof safe
What benefits does the Power Word Kill spell have?
Lettrine + string manipulation + some fonts = errors and weird issues
Strange Sticky Substance on Digital Camera
Can you cast Dispel Magic on a Shadow Monk's Silence?
Should the average user with no special access rights be worried about SMS-based 2FA being theoretically interceptable?
Examples of "unsuccessful" theories with afterlives
practicality of 30 year fix mortgage at 55 years of age
Comma Code - Automate the Boring Stuff with Python
Safely hang a mirror that does not have hooks
Does HTTP HSTS protect a domain from a bad-actor publically-trusted-CA issing a illegitimate valid certificate?
A delve into extraordinary chess problems: Selfmate 1
What is the meaning of word 'crack' in chapter 33 of A Game of Thrones?
Is it a good idea to leave minor world details to the reader's imagination?
Meaning of 'ran' in German?
word frequency from file using partial match
How to conceptualize Newton's apple?
My manager quit. Should I agree to defer wage increase to accommodate budget concerns?
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
10 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
10 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
10 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
10 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
10 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
10 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
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
10 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
10 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
10 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 8 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 5 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
10 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
10 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