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