# DiscretePlot: differentiate without using different colors

I need to plot multiple series in the same figure. As the picture will be printed in white and black only, how can I differentiate these series so that readers can identify them from each other? Thanks!

=================

1

@Bill, he doesn’t want colors since he’ll be printing in black and white; this calls for using different shapes as the plot markers. Maybe different dashing and thickness styles too if the points are joined.
– J. M.♦
Jun 4 at 4:37

=================

2

=================

data = Table[
PDF[BinomialDistribution[50, p], k], {p, {0.3, 0.5, 0.8}}];

DiscretePlot[
Evaluate@data, {k, 1, 50},
PlotStyle -> {
Directive[Black, Opacity[.5],
AbsoluteDashing[{5, 5}]],
Directive[Black, Opacity[.5],
AbsoluteDashing[{10, 10}]],
Directive[Black, Opacity[.5],
AbsoluteDashing[{0, 0}]]},
PlotMarkers -> {Automatic, Medium},
PlotLegends -> {0.3, 0.5, 0.8}]

Thank you BoB. One more question is, based on your code, can I plot every 10th point on the x-axis? I have 240 data points. If I plot all of them together, it is too crowded.
– David Xiaoyu Xu
Jun 4 at 8:46

@David, look up Span[] or Take[] for that.
– J. M.♦
Jun 4 at 9:10

@DavidXiaoyuXu – also look at Downsample
– Bob Hanlon
Jun 4 at 13:19

Sincerely David, it’s not so difficult to look at the documentation

Plot[{Sin[x], Cos[x]}, {x, 0, 2 \[Pi]},
PlotStyle -> {Dashing[.1], Dashing[0.01]}]

Hope it will do the task

1

Sincerely Cyrille, the OP was asking about DiscretePlot[], so an answer involving that function would be certainly more germane.
– J. M.♦
Jun 4 at 6:57

I realize that I have not reading the question with enough attention. Sorry
– cyrille.piatecki
Jun 5 at 8:40