Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Something other than PlotStyle to change look of graphs
Replies: 2   Last Post: Feb 10, 2012 5:51 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
Christopher O. Young

Posts: 182
Registered: 2/13/11
Re: Something other than PlotStyle to change look of graphs
Posted: Feb 10, 2012 5:51 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

I'm still working out the details here, but here's a more general
approach to using plot legends via Legend[ ]:


fncs[x_] := {
SurvivalFunction[WeibullDistribution[2.2, 3.2], x],
SurvivalFunction[LogNormalDistribution[0.1, 0.8], x],
SurvivalFunction[ExponentialDistribution[0.6], x]
}

plotStyles = {
{Black, Thickness[Small]},
{Dashing[Tiny], Black},
{Dashing[Large], Black, Thickness[Large]}
}

plotNames = {"Weibull", "LogNormal", "Exponential"}


GraphicsRow[
{
Show[
Plot[
fncs[x] // Evaluate,
{x, 0, 5},
PlotStyle -> plotStyles
],

ListPlot[
Transpose[Table[fncs[x], {x, 1, 5}]],
PlotMarkers -> Automatic,
Axes -> True
],

PlotLabel -> Style["Survival Curves", FontSize -> 12],
AxesLabel -> TraditionalForm /@ {"t", "S(t)"}
],

Graphics @
Legend[
Table[
{
Graphics @ Append[plotStyles[[i]], Line[{{0, 0}, {2, 0}}]],
plotNames[[i]]
},
{i, 1, 3}
],

LegendPosition -> {0.3, -0.1},
LegendTextSpace -> 1,
LegendSize -> {0.25, 0.25},
LegendOrientation -> Vertical,
LegendBackground -> LightYellow,
ShadowBackground -> LightOrange
]
}
]

On 2012-02-08 10:26:47 +0000, cylurian said:

> I have three functions in one plot. I'm using PlotStyle to
> differentiate the graphs, but I need more options. I need each graph
> to have some special marker, like a diamond, circle, etc. I'm using
> Mathematica 8 and I'm also using PlotLegend. Any suggestions?
>
> My code is:
>
> Plot[{SurvivalFunction[WeibullDistribution[2.2, 3.2], x],
> SurvivalFunction[LogNormalDistribution[.1, .8], x],
> SurvivalFunction[ExponentialDistribution[.6], x]}, {x, 0, 5},
> PlotStyle -> {{ Black, Thickness[Small]}, {Dashing[Tiny],
> Black}, {Dashing[Large], Black, Thickness[Large]}},
> AxesLabel -> TraditionalForm /@ {t, "S(t)"}, Ticks -> None,
> DisplayFunction -> Identity,
> PlotLabel -> Style["Survival Curves", FontSize -> 18],
> PlotLegend -> {"Weibull", "LogNormal", "Exponential"},
> LegendPosition -> {.3, -0.1}, LegendTextSpace -> 4,
> LegendLabelSpace -> .5, LegendLabel -> "Survival Curves",
> LegendOrientation -> Vertical, LegendBackground -> White,
> LegendSize -> .4, ShadowBackground -> White]







Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.