Re: 2D plots of data points

*To*: mathgroup at smc.vnet.net*Subject*: [mg109704] Re: 2D plots of data points*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Wed, 12 May 2010 07:35:46 -0400 (EDT)

Not sure that I understand what you want. Here's a guess. data = {{1, 2, 3}, {4, 5, 6} , {7, 8, 9}}; pts = {#, Position[Transpose[data], #][[1]]} & /@ Flatten[data] /. {x_, y_Integer} -> {x - 1, 1 - y} {{1, {0, 0}}, {2, {1, 0}}, {3, {2, 0}}, {4, {0, -1}}, {5, {1, -1}}, {6, {2, -1}}, {7, {0, -2}}, {8, {1, -2}}, {9, {2, -2}}} Alternatively, pts = {#, (Position[Transpose[data], #][[1]] - 1) {1, -1}} & /@ Flatten[data] {{1, {0, 0}}, {2, {1, 0}}, {3, {2, 0}}, {4, {0, -1}}, {5, {1, -1}}, {6, {2, -1}}, {7, {0, -2}}, {8, {1, -2}}, {9, {2, -2}}} Show[ Graphics[ {Circle[#[[2]], .5], Text[Style[#[[1]], 24], #[[2]]]} & /@ pts], Frame -> True] Show[ Graphics[ {Blue, Disk[#[[2]], .5], Text[Style[#[[1]], White, 24], #[[2]]]} & /@ pts], Frame -> True] Bob Hanlon ---- Niles <niels.martinsen at gmail.com> wrote: ============= Greetings, friends I have the data-points {1,2,3}, {4,5,6} and {7,8,9} and I wish to plot them in a 2D-plot (x,y) ranging from x:0..2 and y:-2..0. The coordinates of the points should be 1: (0,0) 2: (1,0) 3: (2,0) 4: (0,-1) 5: (1,-1) 6: (2,-1) 7: (0,-2) 8: (1,-2) 9: (2,-2) Is there a smart way of doing this? is it furthermore possible to make the data-points larger, i.e. so there is no white-space between the points? Any hints/help will be greatly appreciated. Sincerely, Niles.