RE: Combining plots

*To*: mathgroup at smc.vnet.net*Subject*: [mg48646] RE: [mg48618] Combining plots*From*: "David Park" <djmp at earthlink.net>*Date*: Wed, 9 Jun 2004 04:17:10 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Johan, You have to turn the DisplayFunction back on in the Show statement. a = ListPlot[{1, 2, 3}, DisplayFunction -> Identity]; b = ListPlot[{4, 5, 5}, DisplayFunction -> Identity]; Show[a, b, DisplayFunction -> $DisplayFunction, Prolog -> AbsolutePointSize[4], Frame -> True]; Or you could use the Block statement to temporarily reset $DisplayFunction. I also add colors to the points. Needs["Graphics`Colors`"] Block[{$DisplayFunction = Identity}, a = ListPlot[{1, 2, 3}, PlotStyle -> {AbsolutePointSize[4], Blue}]; b = ListPlot[{4, 5, 5}, PlotStyle -> {AbsolutePointSize[4], Red}]]; Show[a, b, Frame -> True]; There is a package, DrawGraphics, at my web site that was specifically designed to make it easy to combine various plot types more like a standard drawing program. It automatically handles the DisplayFunction and extracts the graphic primitives so curves, surfaces and other plot objects are on the same level as Point, Line and the graphic directives. So with DrawGraphics the above plot could be done... Needs["DrawGraphics`DrawingMaster`"] Draw2D[ {AbsolutePointSize[4], Blue, ListDraw[{1, 2, 3}], Red, ListDraw[{4, 5, 5}]}, Frame -> True]; The "Draw" statements are used just like the corresponding "Plot" statements in Mathematica. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Johan [mailto:vdmeer at science.uva.nl] To: mathgroup at smc.vnet.net Hello all, Suppose I wish to show a combined plot, for instance a:=ListPlot[{1,2,3}] b:=ListPlot[{4,5,5}] using Show[a,b] Now Mathematica draws 3 graphics, one of a, b and one of a and b combined. I want to only see the third combined graph and not the first two graphs. Is that possible? I tried something with setting DisplayFunction to Identity in a and b, but then Show doesn't show anything... Help! Thanks! Johan