Search All of the Math Forum:

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

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

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

 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

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,
]
}
]

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]

Date Subject Author
2/8/12 cylurian
2/9/12 Alexei Boulbitch
2/10/12 Christopher O. Young