Re: plot legend with filling

*To*: mathgroup at smc.vnet.net*Subject*: [mg126966] Re: plot legend with filling*From*: "djmpark" <djmpark at comcast.net>*Date*: Thu, 21 Jun 2012 05:16:44 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <28683816.45037.1340182325220.JavaMail.root@m06>

This can easily be done with the Presentations Application. Needs["Presentations`Master`"] Presentations`Master` automatically loads PlotLegends` with a DeclarePackage statement. v1 = {{1.15, 0}, {1.15, 3}, {2.15, 1}, {2.15, 7}, {3.15, 3}, {3.15, 9}, {4.15, 5}, {4.15, 7}}; v2 = {{1, 1}, {1, 5}, {2, 1.8}, {2, 6}, {3, 3.5}, {3, 10}, {4, 4}, {4, 6}}; ShowLegend[ Draw2D[ {ListDraw[v1, Filling -> Axis, FillingStyle -> Directive[AbsoluteThickness[4], Blue]], ListDraw[v2, Filling -> Axis, FillingStyle -> Directive[AbsoluteThickness[2], Red]]}, AspectRatio -> 1/GoldenRatio, PlotRange -> {{-0.1, 5}, {-0.2, 12}}, Axes -> True], {{{Blue, "Array 1"}, {Red, "Array 2"}}, LegendPosition -> {-0.8, 0.3}, LegendSize -> {0.5, 0.2}, LegendTextOffset -> {-0.6, 0}, LegendSpacing -> 0.6}, BaseStyle -> {FontSize -> 12, FontWeight -> "Bold"}] David Park djmpark at comcast.net http://home.comcast.net/~djmpark/index.html From: Francisco Gutierrez [mailto:fgutiers2002 at yahoo.com] Dear group: I have two arrays of numbers, think of something like this: v1={{1.15,0},{1.15,3},{2.15,1},{2.15,7},{3.15,3},{3.15,9},{4.15,5},{4.15,7}} v2={{1,1},{1,5},{2,1.8},{2,6},{3,3.5},{3,10},{4,4},{4,6}} I want to make a graph with these two arrays, where I get: a. A line from the x axis to each point in each array b. A legend, with say v1 red and v2 blue c. Each array has its own filling style (different color, thickness, etc.). The problem is that I can find ways of plugging in two of these characteristics, but not all three. For example: <<PlotLegends` p1=ListPlot[v1, Filling->Axis, FillingStyle->Directive[AbsoluteThickness[4], Blue]] p2=p2=ListPlot[v2, Filling->Axis, FillingStyle->Directive[AbsoluteThickness[4], Red]] Show[p1,p2], but then I did not manage to find the way of using Show and PlotLegend at the same time. Or I can put both arrays into a Listplot command, but then I did not find how to attribute a different color AND thickness to the filling of each array. I'm using Mathematica 8 Can somebody help me? Francisco