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.

```

• Prev by Date: Why do these not work?
• Next by Date: Different answer when running cell second time?
• Previous by thread: Re: 2D plots of data points
• Next by thread: implicit function