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