RE: ? scatterplots with differently sized labels and dots ?
- To: mathgroup at smc.vnet.net
- Subject: [mg15516] RE: [mg15482] ? scatterplots with differently sized labels and dots ?
- From: "Jean-Marie THOMAS" <jmthomas at agat.net>
- Date: Mon, 18 Jan 1999 23:47:17 -0500
- Sender: owner-wri-mathgroup at wolfram.com
Try this:
data={{1 ,120 , 55 , 77 }, {2 , 50 , 49 ,
63 }, {3 , 215 , 44 , 55 }, {4 , 10 , 65
, 44} }
{min,max}={Min[#],Max[#]}&[Part[Transpose[data],2]]
f=Interpolation[{{min,1/60},{max,1/20}},InterpolationOrder->1]
Show[Graphics[Map[{PointSize[f[#[[2]]]],Point[{#[[3]],#[[4]]}]}&,data]]]
Hope this helps,
****************************************
Jean-Marie THOMAS
mailto:jmthomas at agat.net
Conseil et Audit en Ingenierie de Calcul Strasbourg, France
http://www.agat.net
****************************************
-----Original Message-----
From: Nicholas Gessler [mailto:gessler at ucla.edu] To:
mathgroup at smc.vnet.net
Subject: [mg15516] [mg15482] ? scatterplots with differently sized labels and dots
?
Perhaps someone could help me with this problem. I've been several days
trying to figure it out. Please reply to me directly. I would
appreciate it...
I have successfully used ReadList and ListPlot to read a table of data
from the hard drive and produce a simple scatterplot. What I want to
be able to do is to label each point with a sequence number and vary
the point size according to a third variable.
Example: I wish to plot an inventory of iron artifacts according to
catalog number, weight, easting and northing. The table looks like
this:
number weight easting northing 1 120 55 77
2 50 49 63
3 215 44 55
4 10 65 44
I want the dot size to be proportional to the weight so the plot might
look like this:
[[1]]
(2)
(((3)))
[4]
If I were writing a program in Basic, this would be simple enough. Is
there a way to do this easily in Mathematica or should I write a
program in C?
Thanks,
Nick
gessler at ucla.edu
Nick Gessler <gessler at ucla.edu>
0/ 0/ ARTIFICIAL CULTURE: \0 \0
/# /# Experiments in #\ #\
/\ /\ Synthetic /\ /\
"""""""""" Anthropology """"""""""
(in preparation for MIT Press)
Founding Member - Coordinator
COMPUTATIONAL EVOLUTION AND ECOLOGY GROUP
CENTER FOR THE STUDY OF EVOLUTION AND THE ORIGIN OF LIFE
Department of Anthropology
University of California at Los Angeles
c/o
11152 Lucerne Avenue, Culver City, California 90230-4244
Phone/FAX: 310-559-6661
http://www.sscnet.ucla.edu/anthro/gessler