Re: Something other than PlotStyle to change look of graphs
- To: mathgroup at smc.vnet.net
- Subject: [mg124864] Re: Something other than PlotStyle to change look of graphs
- From: Chris Young <cy56 at comcast.net>
- Date: Fri, 10 Feb 2012 05:51:10 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <jgtil7$67p$1@smc.vnet.net>
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]